/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / Obx / Mod / Omosi

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 05 4f 6d 6f 73 69 00 | 00 00 00 00 00 00 00 00 |..Omosi.|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 6f 4f 44 43 6f 62 6e | 46 01 00 00 00 00 00 00 |.oODCobn|F.......|
|00000050| 00 00 00 00 00 2d 27 00 | 00 01 3e ae 06 bf 7e ae |.....-'.|..>...~.|
|00000060| 06 bf 8d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 41 f2 00 00 |........|....A...|
|00000080| 43 44 4f 6f 00 00 00 00 | 82 f1 44 6f 63 75 6d 65 |CDOo....|..Docume|
|00000090| 6e 74 73 2e 53 74 64 44 | 6f 63 75 6d 65 6e 74 44 |nts.StdD|ocumentD|
|000000a0| 65 73 63 00 f1 44 6f 63 | 75 6d 65 6e 74 73 2e 44 |esc..Doc|uments.D|
|000000b0| 6f 63 75 6d 65 6e 74 44 | 65 73 63 00 f1 43 6f 6e |ocumentD|esc..Con|
|000000c0| 74 61 69 6e 65 72 73 2e | 56 69 65 77 44 65 73 63 |tainers.|ViewDesc|
|000000d0| 00 f1 56 69 65 77 73 2e | 56 69 65 77 44 65 73 63 |..Views.|ViewDesc|
|000000e0| 00 f0 53 74 6f 72 65 73 | 2e 53 74 6f 72 65 44 65 |..Stores|.StoreDe|
|000000f0| 73 63 00 00 00 00 00 00 | 00 00 00 07 00 00 00 a4 |sc......|........|
|00000100| 2c 00 00 00 00 00 83 f1 | 44 6f 63 75 6d 65 6e 74 |,.......|Document|
|00000110| 73 2e 4d 6f 64 65 6c 44 | 65 73 63 00 f1 43 6f 6e |s.ModelD|esc..Con|
|00000120| 74 61 69 6e 65 72 73 2e | 4d 6f 64 65 6c 44 65 73 |tainers.|ModelDes|
|00000130| 63 00 f1 4d 6f 64 65 6c | 73 2e 4d 6f 64 65 6c 44 |c..Model|s.ModelD|
|00000140| 65 73 63 00 f1 53 74 6f | 72 65 73 2e 45 6c 65 6d |esc..Sto|res.Elem|
|00000150| 44 65 73 63 00 f2 04 00 | 00 00 00 00 00 00 f2 2b |Desc....|.......+|
|00000160| 00 00 09 00 00 00 ea 2b | 00 00 00 00 00 00 00 82 |.......+|........|
|00000170| f1 54 65 78 74 56 69 65 | 77 73 2e 53 74 64 56 69 |.TextVie|ws.StdVi|
|00000180| 65 77 44 65 73 63 00 f1 | 54 65 78 74 56 69 65 77 |ewDesc..|TextView|
|00000190| 73 2e 56 69 65 77 44 65 | 73 63 00 f2 02 00 00 00 |s.ViewDe|sc......|
|000001a0| 00 00 00 00 00 00 00 00 | 07 00 00 00 94 2b 00 00 |........|.....+..|
|000001b0| 00 00 00 83 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|000001c0| 53 74 64 4d 6f 64 65 6c | 44 65 73 63 00 f1 54 65 |StdModel|Desc..Te|
|000001d0| 78 74 4d 6f 64 65 6c 73 | 2e 4d 6f 64 65 6c 44 65 |xtModels|.ModelDe|
|000001e0| 73 63 00 f2 06 00 00 00 | 00 00 00 00 96 29 00 00 |sc......|.....)..|
|000001f0| 0f 00 00 00 8e 29 00 00 | 00 00 00 00 00 00 55 01 |.....)..|......U.|
|00000200| 00 00 00 82 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|00000210| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000220| 04 00 00 00 00 00 00 00 | 2f 00 00 00 00 00 00 00 |........|/.......|
|00000230| 22 00 00 00 00 00 00 00 | 00 01 00 00 00 00 48 65 |".......|......He|
|00000240| 6c 76 65 74 69 63 61 00 | 7c be 01 00 00 00 00 00 |lvetica.||.......|
|00000250| 90 01 00 00 00 00 9b 00 | 00 00 01 82 f2 0d 00 00 |........|........|
|00000260| 00 00 00 00 00 48 00 00 | 00 00 00 00 00 22 00 00 |.....H..|....."..|
|00000270| 00 00 00 00 00 00 01 00 | 00 00 00 48 65 6c 76 65 |........|...Helve|
|00000280| 74 69 63 61 00 7c be 01 | 00 01 00 00 00 90 01 00 |tica.|..|........|
|00000290| 00 00 00 0a 00 00 00 00 | 21 01 00 00 01 16 00 00 |........|!.......|
|000002a0| 00 00 24 00 00 00 01 1a | 00 00 00 00 bf 04 00 00 |..$.....|........|
|000002b0| 02 82 f2 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 22 00 00 00 00 | 00 00 00 00 01 00 00 00 |..."....|........|
|000002d0| 00 48 65 6c 76 65 74 69 | 63 61 00 7c be 01 00 00 |.Helveti|ca.|....|
|000002e0| 00 00 00 bc 02 00 00 00 | 00 06 00 00 00 00 47 00 |........|......G.|
|000002f0| 00 00 02 06 00 00 00 00 | e3 03 00 00 02 06 00 00 |........|........|
|00000300| 00 00 80 0e 00 00 01 0d | 00 00 00 00 e6 00 00 00 |........|........|
|00000310| 01 0d 00 00 00 00 ad 00 | 00 00 01 0a 00 00 00 00 |........|........|
|00000320| 9e 07 00 00 01 0f 00 00 | 00 00 d5 01 00 00 01 0e |........|........|
|00000330| 00 00 00 00 0d 00 00 00 | 02 07 00 00 00 00 94 00 |........|........|
|00000340| 00 00 02 0a 00 00 00 00 | d3 00 00 00 02 0b 00 00 |........|........|
|00000350| 00 00 c3 01 00 00 ff 4d | 4f 44 55 4c 45 20 4f 62 |.......M|ODULE Ob|
|00000360| 78 4f 6d 6f 73 69 3b 0d | 0d 09 49 4d 50 4f 52 54 |xOmosi;.|..IMPORT|
|00000370| 20 44 6f 6d 61 69 6e 73 | 2c 20 50 6f 72 74 73 2c | Domains|, Ports,|
|00000380| 20 53 74 6f 72 65 73 2c | 20 56 69 65 77 73 2c 20 | Stores,| Views, |
|00000390| 43 6f 6e 74 72 6f 6c 6c | 65 72 73 2c 20 50 72 6f |Controll|ers, Pro|
|000003a0| 70 65 72 74 69 65 73 2c | 20 44 69 61 6c 6f 67 3b |perties,| Dialog;|
|000003b0| 0d 0d 09 43 4f 4e 53 54 | 0d 09 09 6f 75 74 73 69 |...CONST|...outsi|
|000003c0| 64 65 20 3d 20 2d 31 3b | 20 77 68 69 74 65 20 3d |de = -1;| white =|
|000003d0| 20 30 3b 20 74 6f 70 20 | 3d 20 31 3b 20 6c 65 66 | 0; top |= 1; lef|
|000003e0| 74 20 3d 20 32 3b 20 72 | 69 67 68 74 20 3d 20 33 |t = 2; r|ight = 3|
|000003f0| 3b 09 28 2a 20 4b 69 6e | 64 20 2a 29 0d 09 09 67 |;.(* Kin|d *)...g|
|00000400| 72 69 64 44 65 66 61 75 | 6c 74 20 3d 20 46 41 4c |ridDefau|lt = FAL|
|00000410| 53 45 3b 0d 09 09 76 65 | 72 73 69 6f 6e 20 3d 20 |SE;...ve|rsion = |
|00000420| 30 3b 0d 0d 09 54 59 50 | 45 0d 09 09 50 61 6c 65 |0;...TYP|E...Pale|
|00000430| 74 74 65 20 3d 20 41 52 | 52 41 59 20 34 20 4f 46 |tte = AR|RAY 4 OF|
|00000440| 20 50 6f 72 74 73 2e 43 | 6f 6c 6f 72 3b 0d 0d 09 | Ports.C|olor;...|
|00000450| 09 4b 69 6e 64 20 3d 20 | 49 4e 54 45 47 45 52 3b |.Kind = |INTEGER;|
|00000460| 0d 09 09 46 69 65 6c 64 | 20 3d 20 52 45 43 4f 52 |...Field| = RECOR|
|00000470| 44 0d 09 09 09 6b 69 6e | 64 3a 20 4b 69 6e 64 3b |D....kin|d: Kind;|
|00000480| 0d 09 09 09 73 65 6c 3a | 20 42 4f 4f 4c 45 41 4e |....sel:| BOOLEAN|
|00000490| 0d 09 09 45 4e 44 3b 0d | 09 09 52 6f 77 20 3d 20 |...END;.|..Row = |
|000004a0| 41 52 52 41 59 20 38 20 | 4f 46 20 46 69 65 6c 64 |ARRAY 8 |OF Field|
|000004b0| 3b 0d 09 09 4d 6f 64 65 | 6c 20 3d 20 41 52 52 41 |;...Mode|l = ARRA|
|000004c0| 59 20 31 35 20 4f 46 20 | 52 6f 77 3b 0d 0d 09 09 |Y 15 OF |Row;....|
|000004d0| 53 74 64 56 69 65 77 20 | 3d 20 50 4f 49 4e 54 45 |StdView |= POINTE|
|000004e0| 52 20 54 4f 20 53 74 64 | 56 69 65 77 44 65 73 63 |R TO Std|ViewDesc|
|000004f0| 3b 0d 09 09 53 74 64 56 | 69 65 77 44 65 73 63 20 |;...StdV|iewDesc |
|00000500| 3d 20 52 45 43 4f 52 44 | 20 28 56 69 65 77 73 2e |= RECORD| (Views.|
|00000510| 56 69 65 77 44 65 73 63 | 29 0d 09 09 09 28 2a 20 |ViewDesc|)....(* |
|00000520| 70 65 72 73 69 73 74 65 | 6e 74 20 73 74 61 74 65 |persiste|nt state|
|00000530| 20 2a 29 0d 09 09 09 70 | 61 6c 3a 20 50 61 6c 65 | *)....p|al: Pale|
|00000540| 74 74 65 3b 0d 09 09 09 | 6d 6f 64 3a 20 4d 6f 64 |tte;....|mod: Mod|
|00000550| 65 6c 3b 0d 09 09 09 28 | 2a 20 6e 6f 6e 2d 70 65 |el;....(|* non-pe|
|00000560| 72 73 69 73 74 65 6e 74 | 20 73 74 61 74 65 20 2a |rsistent| state *|
|00000570| 29 0d 09 09 09 73 65 6c | 3a 20 49 4e 54 45 47 45 |)....sel|: INTEGE|
|00000580| 52 3b 0d 09 09 09 67 72 | 69 64 3a 20 42 4f 4f 4c |R;....gr|id: BOOL|
|00000590| 45 41 4e 0d 09 09 45 4e | 44 3b 0d 0d 09 09 46 69 |EAN...EN|D;....Fi|
|000005a0| 65 6c 64 50 61 74 68 20 | 3d 20 41 52 52 41 59 20 |eldPath |= ARRAY |
|000005b0| 33 20 4f 46 20 50 6f 72 | 74 73 2e 50 6f 69 6e 74 |3 OF Por|ts.Point|
|000005c0| 3b 0d 0d 09 09 46 69 65 | 6c 64 4f 70 20 3d 20 50 |;....Fie|ldOp = P|
|000005d0| 4f 49 4e 54 45 52 20 54 | 4f 20 46 69 65 6c 64 4f |OINTER T|O FieldO|
|000005e0| 70 44 65 73 63 3b 0d 09 | 09 46 69 65 6c 64 4f 70 |pDesc;..|.FieldOp|
|000005f0| 44 65 73 63 20 3d 20 52 | 45 43 4f 52 44 20 28 44 |Desc = R|ECORD (D|
|00000600| 6f 6d 61 69 6e 73 2e 4f | 70 65 72 61 74 69 6f 6e |omains.O|peration|
|00000610| 44 65 73 63 29 0d 09 09 | 09 76 3a 20 53 74 64 56 |Desc)...|.v: StdV|
|00000620| 69 65 77 3b 20 69 2c 20 | 6a 3a 20 49 4e 54 45 47 |iew; i, |j: INTEG|
|00000630| 45 52 3b 20 6b 69 6e 64 | 3a 20 4b 69 6e 64 0d 09 |ER; kind|: Kind..|
|00000640| 09 45 4e 44 3b 0d 0d 09 | 09 43 6f 6c 6f 72 4f 70 |.END;...|.ColorOp|
|00000650| 20 3d 20 50 4f 49 4e 54 | 45 52 20 54 4f 20 43 6f | = POINT|ER TO Co|
|00000660| 6c 6f 72 4f 70 44 65 73 | 63 3b 0d 09 09 43 6f 6c |lorOpDes|c;...Col|
|00000670| 6f 72 4f 70 44 65 73 63 | 20 3d 20 52 45 43 4f 52 |orOpDesc| = RECOR|
|00000680| 44 20 28 44 6f 6d 61 69 | 6e 73 2e 4f 70 65 72 61 |D (Domai|ns.Opera|
|00000690| 74 69 6f 6e 44 65 73 63 | 29 0d 09 09 09 76 3a 20 |tionDesc|)....v: |
|000006a0| 53 74 64 56 69 65 77 3b | 20 6e 3a 20 49 4e 54 45 |StdView;| n: INTE|
|000006b0| 47 45 52 3b 20 63 6f 6c | 3a 20 50 6f 72 74 73 2e |GER; col|: Ports.|
|000006c0| 43 6f 6c 6f 72 0d 09 09 | 45 4e 44 3b 0d 0d 09 09 |Color...|END;....|
|000006d0| 55 70 64 61 74 65 4d 73 | 67 20 3d 20 52 45 43 4f |UpdateMs|g = RECO|
|000006e0| 52 44 20 28 56 69 65 77 | 73 2e 4d 65 73 73 61 67 |RD (View|s.Messag|
|000006f0| 65 29 0d 09 09 09 69 2c | 20 6a 3a 20 49 4e 54 45 |e)....i,| j: INTE|
|00000700| 47 45 52 0d 09 09 45 4e | 44 3b 0d 0d 09 50 52 4f |GER...EN|D;...PRO|
|00000710| 43 45 44 55 52 45 20 49 | 6e 69 74 52 6f 77 20 28 |CEDURE I|nitRow (|
|00000720| 56 41 52 20 72 6f 77 3a | 20 52 6f 77 3b 20 6b 3a |VAR row:| Row; k:|
|00000730| 20 49 4e 54 45 47 45 52 | 29 3b 0d 09 09 56 41 52 | INTEGER|);...VAR|
|00000740| 20 69 2c 20 6c 2c 20 72 | 3a 20 49 4e 54 45 47 45 | i, l, r|: INTEGE|
|00000750| 52 3b 0d 09 42 45 47 49 | 4e 0d 09 09 6c 20 3a 3d |R;..BEGI|N...l :=|
|00000760| 20 28 38 20 2d 20 6b 29 | 20 44 49 56 20 32 3b 20 | (8 - k)| DIV 2; |
|00000770| 72 20 3a 3d 20 38 20 2d | 20 6c 3b 0d 09 09 69 20 |r := 8 -| l;...i |
|00000780| 3a 3d 20 30 3b 20 57 48 | 49 4c 45 20 69 20 3c 20 |:= 0; WH|ILE i < |
|00000790| 6c 20 44 4f 20 72 6f 77 | 5b 69 5d 2e 6b 69 6e 64 |l DO row|[i].kind|
|000007a0| 20 3a 3d 20 6f 75 74 73 | 69 64 65 3b 20 49 4e 43 | := outs|ide; INC|
|000007b0| 28 69 29 20 45 4e 44 3b | 0d 09 09 57 48 49 4c 45 |(i) END;|...WHILE|
|000007c0| 20 69 20 3c 20 72 20 44 | 4f 20 72 6f 77 5b 69 5d | i < r D|O row[i]|
|000007d0| 2e 6b 69 6e 64 20 3a 3d | 20 77 68 69 74 65 3b 20 |.kind :=| white; |
|000007e0| 49 4e 43 28 69 29 20 45 | 4e 44 3b 0d 09 09 57 48 |INC(i) E|ND;...WH|
|000007f0| 49 4c 45 20 69 20 3c 20 | 38 20 44 4f 20 72 6f 77 |ILE i < |8 DO row|
|00000800| 5b 69 5d 2e 6b 69 6e 64 | 20 3a 3d 20 6f 75 74 73 |[i].kind| := outs|
|00000810| 69 64 65 3b 20 49 4e 43 | 28 69 29 20 45 4e 44 3b |ide; INC|(i) END;|
|00000820| 0d 09 09 69 20 3a 3d 20 | 30 3b 20 57 48 49 4c 45 |...i := |0; WHILE|
|00000830| 20 69 20 3c 20 38 20 44 | 4f 20 72 6f 77 5b 69 5d | i < 8 D|O row[i]|
|00000840| 2e 73 65 6c 20 3a 3d 20 | 46 41 4c 53 45 3b 20 49 |.sel := |FALSE; I|
|00000850| 4e 43 28 69 29 20 45 4e | 44 0d 09 45 4e 44 20 49 |NC(i) EN|D..END I|
|00000860| 6e 69 74 52 6f 77 3b 0d | 0d 09 50 52 4f 43 45 44 |nitRow;.|..PROCED|
|00000870| 55 52 45 20 49 6e 69 74 | 50 61 6c 65 74 74 65 20 |URE Init|Palette |
|00000880| 28 56 41 52 20 70 3a 20 | 50 61 6c 65 74 74 65 29 |(VAR p: |Palette)|
|00000890| 3b 0d 09 42 45 47 49 4e | 0d 09 09 70 5b 77 68 69 |;..BEGIN|...p[whi|
|000008a0| 74 65 5d 20 3a 3d 20 50 | 6f 72 74 73 2e 77 68 69 |te] := P|orts.whi|
|000008b0| 74 65 3b 0d 09 09 70 5b | 74 6f 70 5d 20 3a 3d 20 |te;...p[|top] := |
|000008c0| 30 30 38 30 46 46 48 3b | 0d 09 09 70 5b 6c 65 66 |0080FFH;|...p[lef|
|000008d0| 74 5d 20 3a 3d 20 30 30 | 34 30 38 30 48 3b 20 0d |t] := 00|4080H; .|
|000008e0| 09 09 70 5b 72 69 67 68 | 74 5d 20 3a 3d 20 30 30 |..p[righ|t] := 00|
|000008f0| 30 30 34 30 48 3b 0d 09 | 45 4e 44 20 49 6e 69 74 |0040H;..|END Init|
|00000900| 50 61 6c 65 74 74 65 3b | 0d 0d 09 50 52 4f 43 45 |Palette;|...PROCE|
|00000910| 44 55 52 45 20 49 6e 69 | 74 4d 6f 64 65 6c 20 28 |DURE Ini|tModel (|
|00000920| 56 41 52 20 6d 3a 20 4d | 6f 64 65 6c 29 3b 0d 09 |VAR m: M|odel);..|
|00000930| 09 56 41 52 20 6a 3a 20 | 49 4e 54 45 47 45 52 3b |.VAR j: |INTEGER;|
|00000940| 0d 09 42 45 47 49 4e 0d | 09 09 49 6e 69 74 52 6f |..BEGIN.|..InitRo|
|00000950| 77 28 6d 5b 30 5d 2c 20 | 32 29 3b 20 49 6e 69 74 |w(m[0], |2); Init|
|00000960| 52 6f 77 28 6d 5b 31 5d | 2c 20 34 29 3b 20 49 6e |Row(m[1]|, 4); In|
|00000970| 69 74 52 6f 77 28 6d 5b | 32 5d 2c 20 36 29 3b 0d |itRow(m[|2], 6);.|
|00000980| 09 09 6a 20 3a 3d 20 33 | 3b 20 57 48 49 4c 45 20 |..j := 3|; WHILE |
|00000990| 6a 20 3c 20 31 32 20 44 | 4f 20 49 6e 69 74 52 6f |j < 12 D|O InitRo|
|000009a0| 77 28 6d 5b 6a 5d 2c 20 | 38 29 3b 20 49 4e 43 28 |w(m[j], |8); INC(|
|000009b0| 6a 29 20 45 4e 44 3b 0d | 09 09 49 6e 69 74 52 6f |j) END;.|..InitRo|
|000009c0| 77 28 6d 5b 31 32 5d 2c | 20 36 29 3b 20 49 6e 69 |w(m[12],| 6); Ini|
|000009d0| 74 52 6f 77 28 6d 5b 31 | 33 5d 2c 20 34 29 3b 20 |tRow(m[1|3], 4); |
|000009e0| 49 6e 69 74 52 6f 77 28 | 6d 5b 31 34 5d 2c 20 32 |InitRow(|m[14], 2|
|000009f0| 29 0d 09 45 4e 44 20 49 | 6e 69 74 4d 6f 64 65 6c |)..END I|nitModel|
|00000a00| 3b 0d 0d 09 50 52 4f 43 | 45 44 55 52 45 20 48 20 |;...PROC|EDURE H |
|00000a10| 28 73 3a 20 4c 4f 4e 47 | 49 4e 54 29 3a 20 4c 4f |(s: LONG|INT): LO|
|00000a20| 4e 47 49 4e 54 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |NGINT;..|BEGIN...|
|00000a30| 52 45 54 55 52 4e 20 73 | 20 2a 20 35 30 30 20 44 |RETURN s| * 500 D|
|00000a40| 49 56 20 38 36 36 0d 09 | 45 4e 44 20 48 3b 0d 0d |IV 866..|END H;..|
|00000a50| 09 50 52 4f 43 45 44 55 | 52 45 20 53 20 28 68 3a |.PROCEDU|RE S (h:|
|00000a60| 20 4c 4f 4e 47 49 4e 54 | 29 3a 20 4c 4f 4e 47 49 | LONGINT|): LONGI|
|00000a70| 4e 54 3b 0d 09 42 45 47 | 49 4e 0d 09 09 52 45 54 |NT;..BEG|IN...RET|
|00000a80| 55 52 4e 20 68 20 2a 20 | 38 36 36 20 44 49 56 20 |URN h * |866 DIV |
|00000a90| 35 30 30 0d 09 45 4e 44 | 20 53 3b 0d 0d 09 50 52 |500..END| S;...PR|
|00000aa0| 4f 43 45 44 55 52 45 20 | 47 65 74 46 69 65 6c 64 |OCEDURE |GetField|
|00000ab0| 50 61 74 68 20 28 76 3a | 20 53 74 64 56 69 65 77 |Path (v:| StdView|
|00000ac0| 3b 20 66 3a 20 50 6f 72 | 74 73 2e 46 72 61 6d 65 |; f: Por|ts.Frame|
|00000ad0| 3b 20 69 2c 20 6a 3a 20 | 49 4e 54 45 47 45 52 3b |; i, j: |INTEGER;|
|00000ae0| 20 56 41 52 20 70 3a 20 | 46 69 65 6c 64 50 61 74 | VAR p: |FieldPat|
|00000af0| 68 29 3b 0d 09 09 56 41 | 52 20 77 2c 20 68 2c 20 |h);...VA|R w, h, |
|00000b00| 73 3a 20 4c 4f 4e 47 49 | 4e 54 3b 20 6b 69 6e 64 |s: LONGI|NT; kind|
|00000b10| 3a 20 4b 69 6e 64 3b 0d | 09 42 45 47 49 4e 0d 09 |: Kind;.|.BEGIN..|
|00000b20| 09 76 2e 63 6f 6e 74 65 | 78 74 2e 47 65 74 53 69 |.v.conte|xt.GetSi|
|00000b30| 7a 65 28 77 2c 20 68 29 | 3b 20 73 20 3a 3d 20 28 |ze(w, h)|; s := (|
|00000b40| 77 20 2d 20 66 2e 75 6e | 69 74 29 20 44 49 56 20 |w - f.un|it) DIV |
|00000b50| 38 3b 20 68 20 3a 3d 20 | 48 28 73 29 3b 0d 09 09 |8; h := |H(s);...|
|00000b60| 6b 69 6e 64 20 3a 3d 20 | 76 2e 6d 6f 64 5b 6a 2c |kind := |v.mod[j,|
|00000b70| 20 69 5d 2e 6b 69 6e 64 | 3b 0d 09 09 49 46 20 4f | i].kind|;...IF O|
|00000b80| 44 44 28 69 20 2b 20 6a | 29 20 54 48 45 4e 0d 09 |DD(i + j|) THEN..|
|00000b90| 09 09 70 5b 30 5d 2e 78 | 20 3a 3d 20 69 20 2a 20 |..p[0].x| := i * |
|00000ba0| 73 3b 20 70 5b 30 5d 2e | 79 20 3a 3d 20 28 6a 20 |s; p[0].|y := (j |
|00000bb0| 2b 20 31 29 20 2a 20 68 | 3b 0d 09 09 09 70 5b 31 |+ 1) * h|;....p[1|
|00000bc0| 5d 2e 78 20 3a 3d 20 28 | 69 20 2b 20 31 29 20 2a |].x := (|i + 1) *|
|00000bd0| 20 73 3b 20 70 5b 31 5d | 2e 79 20 3a 3d 20 6a 20 | s; p[1]|.y := j |
|00000be0| 2a 20 68 3b 0d 09 09 09 | 70 5b 32 5d 2e 78 20 3a |* h;....|p[2].x :|
|00000bf0| 3d 20 28 69 20 2b 20 31 | 29 20 2a 20 73 3b 20 70 |= (i + 1|) * s; p|
|00000c00| 5b 32 5d 2e 79 20 3a 3d | 20 28 6a 20 2b 20 32 29 |[2].y :=| (j + 2)|
|00000c10| 20 2a 20 68 0d 09 09 45 | 4c 53 45 0d 09 09 09 70 | * h...E|LSE....p|
|00000c20| 5b 30 5d 2e 78 20 3a 3d | 20 69 20 2a 20 73 3b 20 |[0].x :=| i * s; |
|00000c30| 70 5b 30 5d 2e 79 20 3a | 3d 20 6a 20 2a 20 68 3b |p[0].y :|= j * h;|
|00000c40| 0d 09 09 09 70 5b 31 5d | 2e 78 20 3a 3d 20 28 69 |....p[1]|.x := (i|
|00000c50| 20 2b 20 31 29 20 2a 20 | 73 3b 20 70 5b 31 5d 2e | + 1) * |s; p[1].|
|00000c60| 79 20 3a 3d 20 28 6a 20 | 2b 20 31 29 20 2a 20 68 |y := (j |+ 1) * h|
|00000c70| 3b 0d 09 09 09 70 5b 32 | 5d 2e 78 20 3a 3d 20 69 |;....p[2|].x := i|
|00000c80| 20 2a 20 73 3b 20 70 5b | 32 5d 2e 79 20 3a 3d 20 | * s; p[|2].y := |
|00000c90| 28 6a 20 2b 20 32 29 20 | 2a 20 68 0d 09 09 45 4e |(j + 2) |* h...EN|
|00000ca0| 44 0d 09 45 4e 44 20 47 | 65 74 46 69 65 6c 64 50 |D..END G|etFieldP|
|00000cb0| 61 74 68 3b 0d 0d 09 50 | 52 4f 43 45 44 55 52 45 |ath;...P|ROCEDURE|
|00000cc0| 20 41 64 6a 75 73 74 50 | 61 74 68 20 28 66 3a 20 | AdjustP|ath (f: |
|00000cd0| 50 6f 72 74 73 2e 46 72 | 61 6d 65 3b 20 69 2c 20 |Ports.Fr|ame; i, |
|00000ce0| 6a 3a 20 49 4e 54 45 47 | 45 52 3b 20 56 41 52 20 |j: INTEG|ER; VAR |
|00000cf0| 70 3a 20 46 69 65 6c 64 | 50 61 74 68 29 3b 0d 09 |p: Field|Path);..|
|00000d00| 09 56 41 52 20 64 2c 20 | 65 3a 20 4c 4f 4e 47 49 |.VAR d, |e: LONGI|
|00000d10| 4e 54 3b 0d 09 42 45 47 | 49 4e 0d 09 09 64 20 3a |NT;..BEG|IN...d :|
|00000d20| 3d 20 32 20 2a 20 66 2e | 64 6f 74 3b 20 65 20 3a |= 2 * f.|dot; e :|
|00000d30| 3d 20 33 20 2a 20 66 2e | 64 6f 74 3b 0d 09 09 49 |= 3 * f.|dot;...I|
|00000d40| 46 20 4f 44 44 28 69 20 | 2b 20 6a 29 20 54 48 45 |F ODD(i |+ j) THE|
|00000d50| 4e 0d 09 09 09 49 4e 43 | 28 70 5b 30 5d 2e 78 2c |N....INC|(p[0].x,|
|00000d60| 20 65 29 3b 0d 09 09 09 | 44 45 43 28 70 5b 31 5d | e);....|DEC(p[1]|
|00000d70| 2e 78 2c 20 64 29 3b 20 | 49 4e 43 28 70 5b 31 5d |.x, d); |INC(p[1]|
|00000d80| 2e 79 2c 20 65 29 3b 0d | 09 09 09 44 45 43 28 70 |.y, e);.|...DEC(p|
|00000d90| 5b 32 5d 2e 78 2c 20 64 | 29 3b 20 44 45 43 28 70 |[2].x, d|); DEC(p|
|00000da0| 5b 32 5d 2e 79 2c 20 65 | 29 0d 09 09 45 4c 53 45 |[2].y, e|)...ELSE|
|00000db0| 0d 09 09 09 49 4e 43 28 | 70 5b 30 5d 2e 78 2c 20 |....INC(|p[0].x, |
|00000dc0| 64 29 3b 20 49 4e 43 28 | 70 5b 30 5d 2e 79 2c 20 |d); INC(|p[0].y, |
|00000dd0| 65 29 3b 0d 09 09 09 44 | 45 43 28 70 5b 31 5d 2e |e);....D|EC(p[1].|
|00000de0| 78 2c 20 65 29 3b 0d 09 | 09 09 49 4e 43 28 70 5b |x, e);..|..INC(p[|
|00000df0| 32 5d 2e 78 2c 20 64 29 | 3b 20 44 45 43 28 70 5b |2].x, d)|; DEC(p[|
|00000e00| 32 5d 2e 79 2c 20 65 29 | 0d 09 09 45 4e 44 0d 09 |2].y, e)|...END..|
|00000e10| 45 4e 44 20 41 64 6a 75 | 73 74 50 61 74 68 3b 0d |END Adju|stPath;.|
|00000e20| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 56 61 6c 69 |..PROCED|URE Vali|
|00000e30| 64 46 69 65 6c 64 20 28 | 76 3a 20 53 74 64 56 69 |dField (|v: StdVi|
|00000e40| 65 77 3b 20 69 2c 20 6a | 3a 20 49 4e 54 45 47 45 |ew; i, j|: INTEGE|
|00000e50| 52 29 3a 20 42 4f 4f 4c | 45 41 4e 3b 0d 09 42 45 |R): BOOL|EAN;..BE|
|00000e60| 47 49 4e 0d 09 09 52 45 | 54 55 52 4e 20 28 30 20 |GIN...RE|TURN (0 |
|00000e70| 3c 3d 20 69 29 20 26 20 | 28 69 20 3c 20 38 29 20 |<= i) & |(i < 8) |
|00000e80| 26 20 28 30 20 3c 3d 20 | 6a 29 20 26 20 28 6a 20 |& (0 <= |j) & (j |
|00000e90| 3c 20 31 35 29 20 26 20 | 28 76 2e 6d 6f 64 5b 6a |< 15) & |(v.mod[j|
|00000ea0| 2c 20 69 5d 2e 6b 69 6e | 64 20 3e 20 6f 75 74 73 |, i].kin|d > outs|
|00000eb0| 69 64 65 29 0d 09 45 4e | 44 20 56 61 6c 69 64 46 |ide)..EN|D ValidF|
|00000ec0| 69 65 6c 64 3b 0d 0d 09 | 50 52 4f 43 45 44 55 52 |ield;...|PROCEDUR|
|00000ed0| 45 20 44 72 61 77 46 69 | 65 6c 64 20 28 76 3a 20 |E DrawFi|eld (v: |
|00000ee0| 53 74 64 56 69 65 77 3b | 20 66 3a 20 50 6f 72 74 |StdView;| f: Port|
|00000ef0| 73 2e 46 72 61 6d 65 3b | 20 69 2c 20 6a 3a 20 49 |s.Frame;| i, j: I|
|00000f00| 4e 54 45 47 45 52 29 3b | 0d 09 09 56 41 52 20 63 |NTEGER);|...VAR c|
|00000f10| 6f 6c 3a 20 50 6f 72 74 | 73 2e 43 6f 6c 6f 72 3b |ol: Port|s.Color;|
|00000f20| 20 70 3a 20 46 69 65 6c | 64 50 61 74 68 3b 0d 09 | p: Fiel|dPath;..|
|00000f30| 42 45 47 49 4e 0d 09 09 | 49 46 20 56 61 6c 69 64 |BEGIN...|IF Valid|
|00000f40| 46 69 65 6c 64 28 76 2c | 20 69 2c 20 6a 29 20 54 |Field(v,| i, j) T|
|00000f50| 48 45 4e 0d 09 09 09 63 | 6f 6c 20 3a 3d 20 76 2e |HEN....c|ol := v.|
|00000f60| 70 61 6c 5b 76 2e 6d 6f | 64 5b 6a 2c 20 69 5d 2e |pal[v.mo|d[j, i].|
|00000f70| 6b 69 6e 64 5d 3b 20 47 | 65 74 46 69 65 6c 64 50 |kind]; G|etFieldP|
|00000f80| 61 74 68 28 76 2c 20 66 | 2c 20 69 2c 20 6a 2c 20 |ath(v, f|, i, j, |
|00000f90| 70 29 3b 0d 09 09 09 66 | 2e 44 72 61 77 50 61 74 |p);....f|.DrawPat|
|00000fa0| 68 28 70 2c 20 33 2c 20 | 50 6f 72 74 73 2e 66 69 |h(p, 3, |Ports.fi|
|00000fb0| 6c 6c 2c 20 63 6f 6c 2c | 20 50 6f 72 74 73 2e 63 |ll, col,| Ports.c|
|00000fc0| 6c 6f 73 65 64 50 6f 6c | 79 29 3b 0d 0d 09 09 09 |losedPol|y);.....|
|00000fd0| 49 46 20 76 2e 67 72 69 | 64 20 54 48 45 4e 0d 09 |IF v.gri|d THEN..|
|00000fe0| 09 09 09 66 2e 44 72 61 | 77 50 61 74 68 28 70 2c |...f.Dra|wPath(p,|
|00000ff0| 20 33 2c 20 30 2c 20 50 | 6f 72 74 73 2e 67 72 65 | 3, 0, P|orts.gre|
|00001000| 79 32 35 2c 20 50 6f 72 | 74 73 2e 63 6c 6f 73 65 |y25, Por|ts.close|
|00001010| 64 50 6f 6c 79 29 0d 09 | 09 09 45 4e 44 3b 0d 09 |dPoly)..|..END;..|
|00001020| 09 09 49 46 20 76 2e 6d | 6f 64 5b 6a 2c 20 69 5d |..IF v.m|od[j, i]|
|00001030| 2e 73 65 6c 20 54 48 45 | 4e 0d 09 09 09 09 41 64 |.sel THE|N.....Ad|
|00001040| 6a 75 73 74 50 61 74 68 | 28 66 2c 20 69 2c 20 6a |justPath|(f, i, j|
|00001050| 2c 20 70 29 3b 0d 09 09 | 09 09 66 2e 44 72 61 77 |, p);...|..f.Draw|
|00001060| 50 61 74 68 28 70 2c 20 | 33 2c 20 30 2c 20 38 30 |Path(p, |3, 0, 80|
|00001070| 30 30 30 30 48 2c 20 50 | 6f 72 74 73 2e 63 6c 6f |0000H, P|orts.clo|
|00001080| 73 65 64 50 6f 6c 79 29 | 0d 09 09 09 45 4e 44 0d |sedPoly)|....END.|
|00001090| 09 09 45 4e 44 0d 09 45 | 4e 44 20 44 72 61 77 46 |..END..E|ND DrawF|
|000010a0| 69 65 6c 64 3b 0d 0d 09 | 50 52 4f 43 45 44 55 52 |ield;...|PROCEDUR|
|000010b0| 45 20 53 65 6c 65 63 74 | 46 69 65 6c 64 20 28 76 |E Select|Field (v|
|000010c0| 3a 20 53 74 64 56 69 65 | 77 3b 20 66 3a 20 50 6f |: StdVie|w; f: Po|
|000010d0| 72 74 73 2e 46 72 61 6d | 65 3b 20 69 2c 20 6a 3a |rts.Fram|e; i, j:|
|000010e0| 20 49 4e 54 45 47 45 52 | 3b 20 73 65 6c 3a 20 42 | INTEGER|; sel: B|
|000010f0| 4f 4f 4c 45 41 4e 29 3b | 0d 09 09 56 41 52 20 63 |OOLEAN);|...VAR c|
|00001100| 6f 6c 3a 20 50 6f 72 74 | 73 2e 43 6f 6c 6f 72 3b |ol: Port|s.Color;|
|00001110| 20 70 3a 20 46 69 65 6c | 64 50 61 74 68 3b 20 6b | p: Fiel|dPath; k|
|00001120| 69 6e 64 3a 20 4b 69 6e | 64 3b 0d 09 42 45 47 49 |ind: Kin|d;..BEGI|
|00001130| 4e 0d 09 09 49 46 20 56 | 61 6c 69 64 46 69 65 6c |N...IF V|alidFiel|
|00001140| 64 28 76 2c 20 69 2c 20 | 6a 29 20 26 20 28 76 2e |d(v, i, |j) & (v.|
|00001150| 6d 6f 64 5b 6a 2c 20 69 | 5d 2e 73 65 6c 20 23 20 |mod[j, i|].sel # |
|00001160| 73 65 6c 29 20 54 48 45 | 4e 0d 09 09 09 76 2e 6d |sel) THE|N....v.m|
|00001170| 6f 64 5b 6a 2c 20 69 5d | 2e 73 65 6c 20 3a 3d 20 |od[j, i]|.sel := |
|00001180| 73 65 6c 3b 0d 09 09 09 | 49 46 20 73 65 6c 20 54 |sel;....|IF sel T|
|00001190| 48 45 4e 20 49 4e 43 28 | 76 2e 73 65 6c 29 20 45 |HEN INC(|v.sel) E|
|000011a0| 4c 53 45 20 44 45 43 28 | 76 2e 73 65 6c 29 20 45 |LSE DEC(|v.sel) E|
|000011b0| 4e 44 3b 0d 09 09 09 44 | 72 61 77 46 69 65 6c 64 |ND;....D|rawField|
|000011c0| 28 76 2c 20 66 2c 20 69 | 2c 20 6a 29 0d 09 09 45 |(v, f, i|, j)...E|
|000011d0| 4e 44 0d 09 45 4e 44 20 | 53 65 6c 65 63 74 46 69 |ND..END |SelectFi|
|000011e0| 65 6c 64 3b 0d 0d 09 50 | 52 4f 43 45 44 55 52 45 |eld;...P|ROCEDURE|
|000011f0| 20 4c 6f 63 61 74 65 46 | 69 65 6c 64 20 28 76 3a | LocateF|ield (v:|
|00001200| 20 53 74 64 56 69 65 77 | 3b 20 66 3a 20 56 69 65 | StdView|; f: Vie|
|00001210| 77 73 2e 46 72 61 6d 65 | 3b 20 78 2c 20 79 3a 20 |ws.Frame|; x, y: |
|00001220| 4c 4f 4e 47 49 4e 54 3b | 20 56 41 52 20 69 2c 20 |LONGINT;| VAR i, |
|00001230| 6a 3a 20 49 4e 54 45 47 | 45 52 29 3b 0d 09 09 56 |j: INTEG|ER);...V|
|00001240| 41 52 20 75 2c 20 77 2c | 20 68 2c 20 73 2c 20 73 |AR u, w,| h, s, s|
|00001250| 78 2c 20 73 79 2c 20 6d | 78 2c 20 6d 79 3a 20 4c |x, sy, m|x, my: L|
|00001260| 4f 4e 47 49 4e 54 3b 0d | 09 42 45 47 49 4e 0d 09 |ONGINT;.|.BEGIN..|
|00001270| 09 76 2e 63 6f 6e 74 65 | 78 74 2e 47 65 74 53 69 |.v.conte|xt.GetSi|
|00001280| 7a 65 28 77 2c 20 68 29 | 3b 20 73 20 3a 3d 20 28 |ze(w, h)|; s := (|
|00001290| 77 20 2d 20 66 2e 75 6e | 69 74 29 20 44 49 56 20 |w - f.un|it) DIV |
|000012a0| 38 3b 0d 09 09 75 20 3a | 3d 20 66 2e 75 6e 69 74 |8;...u :|= f.unit|
|000012b0| 3b 20 68 20 3a 3d 20 48 | 28 73 29 3b 0d 09 09 73 |; h := H|(s);...s|
|000012c0| 78 20 3a 3d 20 78 20 44 | 49 56 20 73 3b 20 73 79 |x := x D|IV s; sy|
|000012d0| 20 3a 3d 20 79 20 44 49 | 56 20 68 3b 0d 09 09 49 | := y DI|V h;...I|
|000012e0| 46 20 28 30 20 3c 3d 20 | 73 78 29 20 26 20 28 73 |F (0 <= |sx) & (s|
|000012f0| 78 20 3c 20 39 29 20 26 | 20 28 30 20 3c 3d 20 73 |x < 9) &| (0 <= s|
|00001300| 79 29 20 26 20 28 73 79 | 20 3c 20 31 36 29 20 54 |y) & (sy| < 16) T|
|00001310| 48 45 4e 0d 09 09 09 69 | 20 3a 3d 20 53 48 4f 52 |HEN....i| := SHOR|
|00001320| 54 28 73 78 29 3b 20 6a | 20 3a 3d 20 53 48 4f 52 |T(sx); j| := SHOR|
|00001330| 54 28 73 79 29 3b 0d 09 | 09 09 49 46 20 4f 44 44 |T(sy);..|..IF ODD|
|00001340| 28 69 20 2b 20 6a 29 20 | 54 48 45 4e 0d 09 09 09 |(i + j) |THEN....|
|00001350| 09 49 46 20 28 73 20 2d | 20 78 29 20 4d 4f 44 20 |.IF (s -| x) MOD |
|00001360| 73 20 2a 20 28 68 20 44 | 49 56 20 75 29 20 3e 3d |s * (h D|IV u) >=|
|00001370| 20 79 20 4d 4f 44 20 68 | 20 2a 20 28 73 20 44 49 | y MOD h| * (s DI|
|00001380| 56 20 75 29 20 54 48 45 | 4e 20 44 45 43 28 6a 29 |V u) THE|N DEC(j)|
|00001390| 20 45 4e 44 0d 09 09 09 | 45 4c 53 45 0d 09 09 09 | END....|ELSE....|
|000013a0| 09 49 46 20 78 20 4d 4f | 44 20 73 20 2a 20 28 68 |.IF x MO|D s * (h|
|000013b0| 20 44 49 56 20 75 29 20 | 3e 3d 20 79 20 4d 4f 44 | DIV u) |>= y MOD|
|000013c0| 20 68 20 2a 20 28 73 20 | 44 49 56 20 75 29 20 54 | h * (s |DIV u) T|
|000013d0| 48 45 4e 20 44 45 43 28 | 6a 29 20 45 4e 44 0d 09 |HEN DEC(|j) END..|
|000013e0| 09 09 45 4e 44 3b 0d 09 | 09 09 49 46 20 28 69 20 |..END;..|..IF (i |
|000013f0| 3d 20 38 29 20 4f 52 20 | 28 6a 20 3d 20 31 35 29 |= 8) OR |(j = 15)|
|00001400| 20 4f 52 20 28 6a 20 3e | 3d 20 30 29 20 26 20 28 | OR (j >|= 0) & (|
|00001410| 76 2e 6d 6f 64 5b 6a 2c | 20 69 5d 2e 6b 69 6e 64 |v.mod[j,| i].kind|
|00001420| 20 3d 20 6f 75 74 73 69 | 64 65 29 20 54 48 45 4e | = outsi|de) THEN|
|00001430| 20 6a 20 3a 3d 20 2d 31 | 20 45 4e 44 0d 09 09 45 | j := -1| END...E|
|00001440| 4c 53 45 20 6a 20 3a 3d | 20 2d 31 0d 09 09 45 4e |LSE j :=| -1...EN|
|00001450| 44 0d 09 45 4e 44 20 4c | 6f 63 61 74 65 46 69 65 |D..END L|ocateFie|
|00001460| 6c 64 3b 0d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |ld;...PR|OCEDURE |
|00001470| 53 65 6c 65 63 74 20 28 | 76 3a 20 53 74 64 56 69 |Select (|v: StdVi|
|00001480| 65 77 3b 20 73 65 74 3a | 20 42 4f 4f 4c 45 41 4e |ew; set:| BOOLEAN|
|00001490| 29 3b 0d 09 09 56 41 52 | 20 69 2c 20 6a 2c 20 73 |);...VAR| i, j, s|
|000014a0| 65 6c 3a 20 49 4e 54 45 | 47 45 52 3b 0d 09 42 45 |el: INTE|GER;..BE|
|000014b0| 47 49 4e 0d 09 09 6a 20 | 3a 3d 20 30 3b 0d 09 09 |GIN...j |:= 0;...|
|000014c0| 57 48 49 4c 45 20 6a 20 | 3c 20 31 35 20 44 4f 0d |WHILE j |< 15 DO.|
|000014d0| 09 09 09 69 20 3a 3d 20 | 30 3b 20 57 48 49 4c 45 |...i := |0; WHILE|
|000014e0| 20 69 20 3c 20 38 20 44 | 4f 20 76 2e 6d 6f 64 5b | i < 8 D|O v.mod[|
|000014f0| 6a 2c 20 69 5d 2e 73 65 | 6c 20 3a 3d 20 73 65 74 |j, i].se|l := set|
|00001500| 3b 20 49 4e 43 28 69 29 | 20 45 4e 44 3b 0d 09 09 |; INC(i)| END;...|
|00001510| 09 49 4e 43 28 6a 29 0d | 09 09 45 4e 44 3b 0d 09 |.INC(j).|..END;..|
|00001520| 09 49 46 20 73 65 74 20 | 54 48 45 4e 20 73 65 6c |.IF set |THEN sel|
|00001530| 20 3a 3d 20 36 34 20 45 | 4c 53 45 20 73 65 6c 20 | := 64 E|LSE sel |
|00001540| 3a 3d 20 30 20 45 4e 44 | 3b 0d 09 09 49 46 20 76 |:= 0 END|;...IF v|
|00001550| 2e 73 65 6c 20 23 20 73 | 65 6c 20 54 48 45 4e 20 |.sel # s|el THEN |
|00001560| 76 2e 73 65 6c 20 3a 3d | 20 73 65 6c 3b 20 56 69 |v.sel :=| sel; Vi|
|00001570| 65 77 73 2e 55 70 64 61 | 74 65 28 76 2c 20 56 69 |ews.Upda|te(v, Vi|
|00001580| 65 77 73 2e 6b 65 65 70 | 46 72 61 6d 65 73 29 20 |ews.keep|Frames) |
|00001590| 45 4e 44 0d 09 45 4e 44 | 20 53 65 6c 65 63 74 3b |END..END| Select;|
|000015a0| 0d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 54 72 61 |...PROCE|DURE Tra|
|000015b0| 63 6b 20 28 76 3a 20 53 | 74 64 56 69 65 77 3b 20 |ck (v: S|tdView; |
|000015c0| 66 3a 20 56 69 65 77 73 | 2e 46 72 61 6d 65 3b 20 |f: Views|.Frame; |
|000015d0| 78 2c 20 79 3a 20 4c 4f | 4e 47 49 4e 54 3b 20 62 |x, y: LO|NGINT; b|
|000015e0| 75 74 74 6f 6e 73 3a 20 | 53 45 54 29 3b 0d 09 09 |uttons: |SET);...|
|000015f0| 56 41 52 20 73 63 72 69 | 70 74 3a 20 44 6f 6d 61 |VAR scri|pt: Doma|
|00001600| 69 6e 73 2e 4f 70 65 72 | 61 74 69 6f 6e 3b 20 6f |ins.Oper|ation; o|
|00001610| 70 3a 20 46 69 65 6c 64 | 4f 70 3b 20 63 6f 70 3a |p: Field|Op; cop:|
|00001620| 20 43 6f 6c 6f 72 4f 70 | 3b 20 63 6f 6c 3a 20 50 | ColorOp|; col: P|
|00001630| 6f 72 74 73 2e 43 6f 6c | 6f 72 3b 0d 09 09 09 69 |orts.Col|or;....i|
|00001640| 2c 20 6a 2c 20 69 30 2c | 20 6a 30 2c 20 69 31 2c |, j, i0,| j0, i1,|
|00001650| 20 6a 31 3a 20 49 4e 54 | 45 47 45 52 3b 20 69 73 | j1: INT|EGER; is|
|00001660| 44 6f 77 6e 2c 20 70 72 | 65 76 53 65 6c 2c 20 73 |Down, pr|evSel, s|
|00001670| 65 74 43 6f 6c 3a 20 42 | 4f 4f 4c 45 41 4e 3b 20 |etCol: B|OOLEAN; |
|00001680| 6d 3a 20 53 45 54 3b 0d | 09 42 45 47 49 4e 0d 09 |m: SET;.|.BEGIN..|
|00001690| 09 4c 6f 63 61 74 65 46 | 69 65 6c 64 28 76 2c 20 |.LocateF|ield(v, |
|000016a0| 66 2c 20 78 2c 20 79 2c | 20 69 2c 20 6a 29 3b 0d |f, x, y,| i, j);.|
|000016b0| 09 09 69 30 20 3a 3d 20 | 69 3b 20 6a 30 20 3a 3d |..i0 := |i; j0 :=|
|000016c0| 20 6a 3b 20 70 72 65 76 | 53 65 6c 20 3a 3d 20 56 | j; prev|Sel := V|
|000016d0| 61 6c 69 64 46 69 65 6c | 64 28 76 2c 20 69 2c 20 |alidFiel|d(v, i, |
|000016e0| 6a 29 20 26 20 76 2e 6d | 6f 64 5b 6a 2c 20 69 5d |j) & v.m|od[j, i]|
|000016f0| 2e 73 65 6c 3b 0d 09 09 | 49 46 20 7e 70 72 65 76 |.sel;...|IF ~prev|
|00001700| 53 65 6c 20 26 20 7e 28 | 43 6f 6e 74 72 6f 6c 6c |Sel & ~(|Controll|
|00001710| 65 72 73 2e 65 78 74 65 | 6e 64 20 49 4e 20 62 75 |ers.exte|nd IN bu|
|00001720| 74 74 6f 6e 73 29 20 26 | 20 28 76 2e 73 65 6c 20 |ttons) &| (v.sel |
|00001730| 3e 20 30 29 20 54 48 45 | 4e 0d 09 09 09 6a 20 3a |> 0) THE|N....j :|
|00001740| 3d 20 30 3b 0d 09 09 09 | 57 48 49 4c 45 20 6a 20 |= 0;....|WHILE j |
|00001750| 3c 20 31 35 20 44 4f 0d | 09 09 09 09 69 20 3a 3d |< 15 DO.|....i :=|
|00001760| 20 30 3b 0d 09 09 09 09 | 57 48 49 4c 45 20 69 20 | 0;.....|WHILE i |
|00001770| 3c 20 38 20 44 4f 0d 09 | 09 09 09 09 49 46 20 76 |< 8 DO..|....IF v|
|00001780| 2e 6d 6f 64 5b 6a 2c 20 | 69 5d 2e 73 65 6c 20 54 |.mod[j, |i].sel T|
|00001790| 48 45 4e 20 53 65 6c 65 | 63 74 46 69 65 6c 64 28 |HEN Sele|ctField(|
|000017a0| 76 2c 20 66 2c 20 69 2c | 20 6a 2c 20 46 41 4c 53 |v, f, i,| j, FALS|
|000017b0| 45 29 20 45 4e 44 3b 0d | 09 09 09 09 09 49 4e 43 |E) END;.|.....INC|
|000017c0| 28 69 29 0d 09 09 09 09 | 45 4e 44 3b 0d 09 09 09 |(i).....|END;....|
|000017d0| 09 49 4e 43 28 6a 29 0d | 09 09 09 45 4e 44 3b 0d |.INC(j).|...END;.|
|000017e0| 09 09 09 76 2e 73 65 6c | 20 3a 3d 20 30 3b 20 69 |...v.sel| := 0; i|
|000017f0| 20 3a 3d 20 69 30 3b 20 | 6a 20 3a 3d 20 6a 30 0d | := i0; |j := j0.|
|00001800| 09 09 45 4e 44 3b 0d 09 | 09 53 65 6c 65 63 74 46 |..END;..|.SelectF|
|00001810| 69 65 6c 64 28 76 2c 20 | 66 2c 20 69 2c 20 6a 2c |ield(v, |f, i, j,|
|00001820| 20 7e 70 72 65 76 53 65 | 6c 20 4f 52 20 7e 28 43 | ~prevSe|l OR ~(C|
|00001830| 6f 6e 74 72 6f 6c 6c 65 | 72 73 2e 65 78 74 65 6e |ontrolle|rs.exten|
|00001840| 64 20 49 4e 20 62 75 74 | 74 6f 6e 73 29 29 3b 0d |d IN but|tons));.|
|00001850| 09 09 52 45 50 45 41 54 | 0d 09 09 09 66 2e 49 6e |..REPEAT|....f.In|
|00001860| 70 75 74 28 78 2c 20 79 | 2c 20 6d 2c 20 69 73 44 |put(x, y|, m, isD|
|00001870| 6f 77 6e 29 3b 0d 09 09 | 09 4c 6f 63 61 74 65 46 |own);...|.LocateF|
|00001880| 69 65 6c 64 28 76 2c 20 | 66 2c 20 78 2c 20 79 2c |ield(v, |f, x, y,|
|00001890| 20 69 31 2c 20 6a 31 29 | 3b 20 0d 09 09 09 49 46 | i1, j1)|; ....IF|
|000018a0| 20 28 69 31 20 23 20 69 | 29 20 4f 52 20 28 6a 31 | (i1 # i|) OR (j1|
|000018b0| 20 23 20 6a 29 20 54 48 | 45 4e 0d 09 09 09 09 49 | # j) TH|EN.....I|
|000018c0| 46 20 7e 28 43 6f 6e 74 | 72 6f 6c 6c 65 72 73 2e |F ~(Cont|rollers.|
|000018d0| 65 78 74 65 6e 64 20 49 | 4e 20 62 75 74 74 6f 6e |extend I|N button|
|000018e0| 73 29 20 54 48 45 4e 20 | 53 65 6c 65 63 74 46 69 |s) THEN |SelectFi|
|000018f0| 65 6c 64 28 76 2c 20 66 | 2c 20 69 2c 20 6a 2c 20 |eld(v, f|, i, j, |
|00001900| 46 41 4c 53 45 29 20 45 | 4e 44 3b 0d 09 09 09 09 |FALSE) E|ND;.....|
|00001910| 69 20 3a 3d 20 69 31 3b | 20 6a 20 3a 3d 20 6a 31 |i := i1;| j := j1|
|00001920| 3b 0d 09 09 09 09 53 65 | 6c 65 63 74 46 69 65 6c |;.....Se|lectFiel|
|00001930| 64 28 76 2c 20 66 2c 20 | 69 2c 20 6a 2c 20 7e 70 |d(v, f, |i, j, ~p|
|00001940| 72 65 76 53 65 6c 20 4f | 52 20 7e 28 43 6f 6e 74 |revSel O|R ~(Cont|
|00001950| 72 6f 6c 6c 65 72 73 2e | 65 78 74 65 6e 64 20 49 |rollers.|extend I|
|00001960| 4e 20 62 75 74 74 6f 6e | 73 29 29 0d 09 09 09 45 |N button|s))....E|
|00001970| 4e 44 0d 09 09 55 4e 54 | 49 4c 20 7e 69 73 44 6f |ND...UNT|IL ~isDo|
|00001980| 77 6e 3b 0d 09 09 49 46 | 20 7e 28 43 6f 6e 74 72 |wn;...IF| ~(Contr|
|00001990| 6f 6c 6c 65 72 73 2e 65 | 78 74 65 6e 64 20 49 4e |ollers.e|xtend IN|
|000019a0| 20 62 75 74 74 6f 6e 73 | 29 20 26 20 28 28 69 20 | buttons|) & ((i |
|000019b0| 23 20 69 30 29 20 4f 52 | 20 28 6a 20 23 20 6a 30 |# i0) OR| (j # j0|
|000019c0| 29 20 4f 52 20 7e 70 72 | 65 76 53 65 6c 29 20 54 |) OR ~pr|evSel) T|
|000019d0| 48 45 4e 0d 09 09 09 53 | 65 6c 65 63 74 46 69 65 |HEN....S|electFie|
|000019e0| 6c 64 28 76 2c 20 66 2c | 20 69 2c 20 6a 2c 20 46 |ld(v, f,| i, j, F|
|000019f0| 41 4c 53 45 29 0d 09 09 | 45 4e 44 3b 0d 09 09 49 |ALSE)...|END;...I|
|00001a00| 46 20 56 61 6c 69 64 46 | 69 65 6c 64 28 76 2c 20 |F ValidF|ield(v, |
|00001a10| 69 2c 20 6a 29 20 54 48 | 45 4e 0d 09 09 09 49 46 |i, j) TH|EN....IF|
|00001a20| 20 43 6f 6e 74 72 6f 6c | 6c 65 72 73 2e 6d 6f 64 | Control|lers.mod|
|00001a30| 69 66 79 20 49 4e 20 62 | 75 74 74 6f 6e 73 20 54 |ify IN b|uttons T|
|00001a40| 48 45 4e 0d 09 09 09 09 | 44 69 61 6c 6f 67 2e 47 |HEN.....|Dialog.G|
|00001a50| 65 74 43 6f 6c 6f 72 28 | 76 2e 70 61 6c 5b 76 2e |etColor(|v.pal[v.|
|00001a60| 6d 6f 64 5b 6a 2c 20 69 | 5d 2e 6b 69 6e 64 5d 2c |mod[j, i|].kind],|
|00001a70| 20 63 6f 6c 2c 20 73 65 | 74 43 6f 6c 29 3b 0d 09 | col, se|tCol);..|
|00001a80| 09 09 09 49 46 20 73 65 | 74 43 6f 6c 20 54 48 45 |...IF se|tCol THE|
|00001a90| 4e 0d 09 09 09 09 09 4e | 45 57 28 63 6f 70 29 3b |N......N|EW(cop);|
|00001aa0| 20 63 6f 70 2e 76 20 3a | 3d 20 76 3b 20 63 6f 70 | cop.v :|= v; cop|
|00001ab0| 2e 6e 20 3a 3d 20 76 2e | 6d 6f 64 5b 6a 2c 20 69 |.n := v.|mod[j, i|
|00001ac0| 5d 2e 6b 69 6e 64 3b 20 | 63 6f 70 2e 63 6f 6c 20 |].kind; |cop.col |
|00001ad0| 3a 3d 20 63 6f 6c 3b 0d | 09 09 09 09 09 56 69 65 |:= col;.|.....Vie|
|00001ae0| 77 73 2e 44 6f 28 76 2c | 20 22 43 6f 6c 6f 72 20 |ws.Do(v,| "Color |
|00001af0| 43 68 61 6e 67 65 22 2c | 20 63 6f 70 29 0d 09 09 |Change",| cop)...|
|00001b00| 09 09 45 4e 44 0d 09 09 | 09 45 4c 53 49 46 20 7e |..END...|.ELSIF ~|
|00001b10| 28 43 6f 6e 74 72 6f 6c | 6c 65 72 73 2e 65 78 74 |(Control|lers.ext|
|00001b20| 65 6e 64 20 49 4e 20 62 | 75 74 74 6f 6e 73 29 20 |end IN b|uttons) |
|00001b30| 54 48 45 4e 0d 09 09 09 | 09 56 69 65 77 73 2e 42 |THEN....|.Views.B|
|00001b40| 65 67 69 6e 53 63 72 69 | 70 74 28 76 2c 20 22 4f |eginScri|pt(v, "O|
|00001b50| 6d 6f 73 69 20 43 68 61 | 6e 67 65 22 2c 20 73 63 |mosi Cha|nge", sc|
|00001b60| 72 69 70 74 29 3b 0d 09 | 09 09 09 6a 20 3a 3d 20 |ript);..|...j := |
|00001b70| 30 3b 0d 09 09 09 09 57 | 48 49 4c 45 20 6a 20 3c |0;.....W|HILE j <|
|00001b80| 20 31 35 20 44 4f 0d 09 | 09 09 09 09 69 20 3a 3d | 15 DO..|....i :=|
|00001b90| 20 30 3b 0d 09 09 09 09 | 09 57 48 49 4c 45 20 69 | 0;.....|.WHILE i|
|00001ba0| 20 3c 20 38 20 44 4f 0d | 09 09 09 09 09 09 49 46 | < 8 DO.|......IF|
|00001bb0| 20 28 76 2e 6d 6f 64 5b | 6a 2c 20 69 5d 2e 73 65 | (v.mod[|j, i].se|
|00001bc0| 6c 20 4f 52 20 28 69 20 | 3d 20 69 31 29 20 26 20 |l OR (i |= i1) & |
|00001bd0| 28 6a 20 3d 20 6a 31 29 | 29 20 26 20 28 76 2e 6d |(j = j1)|) & (v.m|
|00001be0| 6f 64 5b 6a 2c 20 69 5d | 2e 6b 69 6e 64 20 3e 20 |od[j, i]|.kind > |
|00001bf0| 6f 75 74 73 69 64 65 29 | 20 54 48 45 4e 0d 09 09 |outside)| THEN...|
|00001c00| 09 09 09 09 09 4e 45 57 | 28 6f 70 29 3b 20 6f 70 |.....NEW|(op); op|
|00001c10| 2e 76 20 3a 3d 20 76 3b | 20 6f 70 2e 69 20 3a 3d |.v := v;| op.i :=|
|00001c20| 20 69 3b 20 6f 70 2e 6a | 20 3a 3d 20 6a 3b 0d 09 | i; op.j| := j;..|
|00001c30| 09 09 09 09 09 09 6f 70 | 2e 6b 69 6e 64 20 3a 3d |......op|.kind :=|
|00001c40| 20 28 76 2e 6d 6f 64 5b | 6a 2c 20 69 5d 2e 6b 69 | (v.mod[|j, i].ki|
|00001c50| 6e 64 20 2b 20 31 29 20 | 4d 4f 44 20 34 3b 0d 09 |nd + 1) |MOD 4;..|
|00001c60| 09 09 09 09 09 09 56 69 | 65 77 73 2e 44 6f 28 76 |......Vi|ews.Do(v|
|00001c70| 2c 20 22 22 2c 20 6f 70 | 29 0d 09 09 09 09 09 09 |, "", op|).......|
|00001c80| 45 4e 44 3b 0d 09 09 09 | 09 09 09 49 4e 43 28 69 |END;....|...INC(i|
|00001c90| 29 0d 09 09 09 09 09 45 | 4e 44 3b 0d 09 09 09 09 |)......E|ND;.....|
|00001ca0| 09 49 4e 43 28 6a 29 0d | 09 09 09 09 45 4e 44 3b |.INC(j).|....END;|
|00001cb0| 0d 09 09 09 09 56 69 65 | 77 73 2e 45 6e 64 53 63 |.....Vie|ws.EndSc|
|00001cc0| 72 69 70 74 28 76 2c 20 | 73 63 72 69 70 74 29 0d |ript(v, |script).|
|00001cd0| 09 09 09 45 4e 44 0d 09 | 09 45 4e 44 0d 09 45 4e |...END..|.END..EN|
|00001ce0| 44 20 54 72 61 63 6b 3b | 0d 0d 0d 09 28 2a 20 46 |D Track;|....(* F|
|00001cf0| 69 65 6c 64 4f 70 20 2a | 29 0d 0d 09 50 52 4f 43 |ieldOp *|)...PROC|
|00001d00| 45 44 55 52 45 20 28 6f | 70 3a 20 46 69 65 6c 64 |EDURE (o|p: Field|
|00001d10| 4f 70 29 20 44 6f 3b 0d | 09 09 56 41 52 20 6b 3a |Op) Do;.|..VAR k:|
|00001d20| 20 4b 69 6e 64 3b 20 6d | 73 67 3a 20 55 70 64 61 | Kind; m|sg: Upda|
|00001d30| 74 65 4d 73 67 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |teMsg;..|BEGIN...|
|00001d40| 6b 20 3a 3d 20 6f 70 2e | 76 2e 6d 6f 64 5b 6f 70 |k := op.|v.mod[op|
|00001d50| 2e 6a 2c 20 6f 70 2e 69 | 5d 2e 6b 69 6e 64 3b 0d |.j, op.i|].kind;.|
|00001d60| 09 09 6f 70 2e 76 2e 6d | 6f 64 5b 6f 70 2e 6a 2c |..op.v.m|od[op.j,|
|00001d70| 20 6f 70 2e 69 5d 2e 6b | 69 6e 64 20 3a 3d 20 6f | op.i].k|ind := o|
|00001d80| 70 2e 6b 69 6e 64 3b 0d | 09 09 6f 70 2e 6b 69 6e |p.kind;.|..op.kin|
|00001d90| 64 20 3a 3d 20 6b 3b 0d | 09 09 6d 73 67 2e 69 20 |d := k;.|..msg.i |
|00001da0| 3a 3d 20 6f 70 2e 69 3b | 20 6d 73 67 2e 6a 20 3a |:= op.i;| msg.j :|
|00001db0| 3d 20 6f 70 2e 6a 3b 20 | 56 69 65 77 73 2e 42 72 |= op.j; |Views.Br|
|00001dc0| 6f 61 64 63 61 73 74 28 | 6f 70 2e 76 2c 20 6d 73 |oadcast(|op.v, ms|
|00001dd0| 67 29 0d 09 45 4e 44 20 | 44 6f 3b 0d 0d 0d 09 28 |g)..END |Do;....(|
|00001de0| 2a 20 43 6f 6c 6f 72 4f | 70 20 2a 29 0d 0d 09 50 |* ColorO|p *)...P|
|00001df0| 52 4f 43 45 44 55 52 45 | 20 28 6f 70 3a 20 43 6f |ROCEDURE| (op: Co|
|00001e00| 6c 6f 72 4f 70 29 20 44 | 6f 3b 0d 09 09 56 41 52 |lorOp) D|o;...VAR|
|00001e10| 20 63 3a 20 50 6f 72 74 | 73 2e 43 6f 6c 6f 72 3b | c: Port|s.Color;|
|00001e20| 0d 09 42 45 47 49 4e 0d | 09 09 63 20 3a 3d 20 6f |..BEGIN.|..c := o|
|00001e30| 70 2e 76 2e 70 61 6c 5b | 6f 70 2e 6e 5d 3b 20 6f |p.v.pal[|op.n]; o|
|00001e40| 70 2e 76 2e 70 61 6c 5b | 6f 70 2e 6e 5d 20 3a 3d |p.v.pal[|op.n] :=|
|00001e50| 20 6f 70 2e 63 6f 6c 3b | 20 6f 70 2e 63 6f 6c 20 | op.col;| op.col |
|00001e60| 3a 3d 20 63 3b 0d 09 09 | 56 69 65 77 73 2e 55 70 |:= c;...|Views.Up|
|00001e70| 64 61 74 65 28 6f 70 2e | 76 2c 20 56 69 65 77 73 |date(op.|v, Views|
|00001e80| 2e 6b 65 65 70 46 72 61 | 6d 65 73 29 0d 09 45 4e |.keepFra|mes)..EN|
|00001e90| 44 20 44 6f 3b 0d 0d 0d | 09 28 2a 20 56 69 65 77 |D Do;...|.(* View|
|00001ea0| 20 2a 29 0d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 | *)...PR|OCEDURE |
|00001eb0| 28 76 3a 20 53 74 64 56 | 69 65 77 29 20 45 78 74 |(v: StdV|iew) Ext|
|00001ec0| 65 72 6e 61 6c 69 7a 65 | 20 28 56 41 52 20 77 72 |ernalize| (VAR wr|
|00001ed0| 3a 20 53 74 6f 72 65 73 | 2e 57 72 69 74 65 72 29 |: Stores|.Writer)|
|00001ee0| 3b 0d 09 09 56 41 52 20 | 69 2c 20 6a 3a 20 49 4e |;...VAR |i, j: IN|
|00001ef0| 54 45 47 45 52 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |TEGER;..|BEGIN...|
|00001f00| 76 2e 45 78 74 65 72 6e | 61 6c 69 7a 65 5e 28 77 |v.Extern|alize^(w|
|00001f10| 72 29 3b 0d 09 09 77 72 | 2e 57 72 69 74 65 56 65 |r);...wr|.WriteVe|
|00001f20| 72 73 69 6f 6e 28 76 65 | 72 73 69 6f 6e 29 3b 0d |rsion(ve|rsion);.|
|00001f30| 09 09 69 20 3a 3d 20 30 | 3b 20 57 48 49 4c 45 20 |..i := 0|; WHILE |
|00001f40| 69 20 3c 20 34 20 44 4f | 20 77 72 2e 57 72 69 74 |i < 4 DO| wr.Writ|
|00001f50| 65 4c 49 6e 74 28 76 2e | 70 61 6c 5b 69 5d 29 3b |eLInt(v.|pal[i]);|
|00001f60| 20 49 4e 43 28 69 29 20 | 45 4e 44 3b 0d 09 09 6a | INC(i) |END;...j|
|00001f70| 20 3a 3d 20 30 3b 0d 09 | 09 57 48 49 4c 45 20 6a | := 0;..|.WHILE j|
|00001f80| 20 3c 20 31 35 20 44 4f | 0d 09 09 09 69 20 3a 3d | < 15 DO|....i :=|
|00001f90| 20 30 3b 20 57 48 49 4c | 45 20 69 20 3c 20 38 20 | 0; WHIL|E i < 8 |
|00001fa0| 44 4f 20 77 72 2e 57 72 | 69 74 65 49 6e 74 28 76 |DO wr.Wr|iteInt(v|
|00001fb0| 2e 6d 6f 64 5b 6a 2c 20 | 69 5d 2e 6b 69 6e 64 29 |.mod[j, |i].kind)|
|00001fc0| 3b 20 49 4e 43 28 69 29 | 20 45 4e 44 3b 0d 09 09 |; INC(i)| END;...|
|00001fd0| 09 49 4e 43 28 6a 29 0d | 09 09 45 4e 44 0d 09 45 |.INC(j).|..END..E|
|00001fe0| 4e 44 20 45 78 74 65 72 | 6e 61 6c 69 7a 65 3b 0d |ND Exter|nalize;.|
|00001ff0| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 28 76 3a 20 |..PROCED|URE (v: |
|00002000| 53 74 64 56 69 65 77 29 | 20 49 6e 74 65 72 6e 61 |StdView)| Interna|
|00002010| 6c 69 7a 65 20 28 56 41 | 52 20 72 64 3a 20 53 74 |lize (VA|R rd: St|
|00002020| 6f 72 65 73 2e 52 65 61 | 64 65 72 29 3b 0d 09 09 |ores.Rea|der);...|
|00002030| 56 41 52 20 69 2c 20 6a | 3a 20 49 4e 54 45 47 45 |VAR i, j|: INTEGE|
|00002040| 52 3b 20 76 65 72 3a 20 | 53 48 4f 52 54 49 4e 54 |R; ver: |SHORTINT|
|00002050| 3b 0d 09 42 45 47 49 4e | 0d 09 09 76 2e 49 6e 74 |;..BEGIN|...v.Int|
|00002060| 65 72 6e 61 6c 69 7a 65 | 5e 28 72 64 29 3b 0d 09 |ernalize|^(rd);..|
|00002070| 09 49 46 20 7e 72 64 2e | 63 61 6e 63 65 6c 6c 65 |.IF ~rd.|cancelle|
|00002080| 64 20 54 48 45 4e 0d 09 | 09 09 72 64 2e 52 65 61 |d THEN..|..rd.Rea|
|00002090| 64 56 65 72 73 69 6f 6e | 28 76 65 72 73 69 6f 6e |dVersion|(version|
|000020a0| 2c 20 76 65 72 73 69 6f | 6e 2c 20 76 65 72 29 3b |, versio|n, ver);|
|000020b0| 0d 09 09 09 49 46 20 7e | 72 64 2e 63 61 6e 63 65 |....IF ~|rd.cance|
|000020c0| 6c 6c 65 64 20 54 48 45 | 4e 0d 09 09 09 09 69 20 |lled THE|N.....i |
|000020d0| 3a 3d 20 30 3b 20 57 48 | 49 4c 45 20 69 20 3c 20 |:= 0; WH|ILE i < |
|000020e0| 34 20 44 4f 20 72 64 2e | 52 65 61 64 4c 49 6e 74 |4 DO rd.|ReadLInt|
|000020f0| 28 76 2e 70 61 6c 5b 69 | 5d 29 3b 20 49 4e 43 28 |(v.pal[i|]); INC(|
|00002100| 69 29 20 45 4e 44 3b 0d | 09 09 09 09 6a 20 3a 3d |i) END;.|....j :=|
|00002110| 20 30 3b 0d 09 09 09 09 | 57 48 49 4c 45 20 6a 20 | 0;.....|WHILE j |
|00002120| 3c 20 31 35 20 44 4f 0d | 09 09 09 09 09 69 20 3a |< 15 DO.|.....i :|
|00002130| 3d 20 30 3b 0d 09 09 09 | 09 09 57 48 49 4c 45 20 |= 0;....|..WHILE |
|00002140| 69 20 3c 20 38 20 44 4f | 20 72 64 2e 52 65 61 64 |i < 8 DO| rd.Read|
|00002150| 49 6e 74 28 76 2e 6d 6f | 64 5b 6a 2c 20 69 5d 2e |Int(v.mo|d[j, i].|
|00002160| 6b 69 6e 64 29 3b 20 76 | 2e 6d 6f 64 5b 6a 2c 20 |kind); v|.mod[j, |
|00002170| 69 5d 2e 73 65 6c 20 3a | 3d 20 46 41 4c 53 45 3b |i].sel :|= FALSE;|
|00002180| 20 49 4e 43 28 69 29 20 | 45 4e 44 3b 0d 09 09 09 | INC(i) |END;....|
|00002190| 09 09 49 4e 43 28 6a 29 | 0d 09 09 09 09 45 4e 44 |..INC(j)|.....END|
|000021a0| 3b 0d 09 09 09 09 76 2e | 67 72 69 64 20 3a 3d 20 |;.....v.|grid := |
|000021b0| 46 41 4c 53 45 0d 09 09 | 09 45 4e 44 0d 09 09 45 |FALSE...|.END...E|
|000021c0| 4e 44 0d 09 45 4e 44 20 | 49 6e 74 65 72 6e 61 6c |ND..END |Internal|
|000021d0| 69 7a 65 3b 0d 0d 09 50 | 52 4f 43 45 44 55 52 45 |ize;...P|ROCEDURE|
|000021e0| 20 28 76 3a 20 53 74 64 | 56 69 65 77 29 20 43 6f | (v: Std|View) Co|
|000021f0| 70 79 46 72 6f 6d 20 28 | 73 6f 75 72 63 65 3a 20 |pyFrom (|source: |
|00002200| 56 69 65 77 73 2e 56 69 | 65 77 29 3b 0d 09 42 45 |Views.Vi|ew);..BE|
|00002210| 47 49 4e 0d 09 09 76 2e | 43 6f 70 79 46 72 6f 6d |GIN...v.|CopyFrom|
|00002220| 5e 28 73 6f 75 72 63 65 | 29 3b 0d 09 09 57 49 54 |^(source|);...WIT|
|00002230| 48 20 73 6f 75 72 63 65 | 3a 20 53 74 64 56 69 65 |H source|: StdVie|
|00002240| 77 20 44 4f 0d 09 09 09 | 76 2e 70 61 6c 20 3a 3d |w DO....|v.pal :=|
|00002250| 20 73 6f 75 72 63 65 2e | 70 61 6c 3b 20 76 2e 6d | source.|pal; v.m|
|00002260| 6f 64 20 3a 3d 20 73 6f | 75 72 63 65 2e 6d 6f 64 |od := so|urce.mod|
|00002270| 3b 0d 09 09 09 76 2e 73 | 65 6c 20 3a 3d 20 73 6f |;....v.s|el := so|
|00002280| 75 72 63 65 2e 73 65 6c | 3b 20 76 2e 67 72 69 64 |urce.sel|; v.grid|
|00002290| 20 3a 3d 20 67 72 69 64 | 44 65 66 61 75 6c 74 0d | := grid|Default.|
|000022a0| 09 09 45 4e 44 0d 09 45 | 4e 44 20 43 6f 70 79 46 |..END..E|ND CopyF|
|000022b0| 72 6f 6d 3b 0d 0d 09 50 | 52 4f 43 45 44 55 52 45 |rom;...P|ROCEDURE|
|000022c0| 20 28 76 3a 20 53 74 64 | 56 69 65 77 29 20 52 65 | (v: Std|View) Re|
|000022d0| 73 74 6f 72 65 20 28 66 | 3a 20 56 69 65 77 73 2e |store (f|: Views.|
|000022e0| 46 72 61 6d 65 3b 20 6c | 2c 20 74 2c 20 72 2c 20 |Frame; l|, t, r, |
|000022f0| 62 3a 20 4c 4f 4e 47 49 | 4e 54 29 3b 0d 09 09 56 |b: LONGI|NT);...V|
|00002300| 41 52 20 69 2c 20 6a 3a | 20 49 4e 54 45 47 45 52 |AR i, j:| INTEGER|
|00002310| 3b 0d 09 42 45 47 49 4e | 0d 09 09 6a 20 3a 3d 20 |;..BEGIN|...j := |
|00002320| 30 3b 0d 09 09 57 48 49 | 4c 45 20 6a 20 3c 20 31 |0;...WHI|LE j < 1|
|00002330| 35 20 44 4f 0d 09 09 09 | 69 20 3a 3d 20 30 3b 20 |5 DO....|i := 0; |
|00002340| 57 48 49 4c 45 20 69 20 | 3c 20 38 20 44 4f 20 44 |WHILE i |< 8 DO D|
|00002350| 72 61 77 46 69 65 6c 64 | 28 76 2c 20 66 2c 20 69 |rawField|(v, f, i|
|00002360| 2c 20 6a 29 3b 20 49 4e | 43 28 69 29 20 45 4e 44 |, j); IN|C(i) END|
|00002370| 3b 0d 09 09 09 49 4e 43 | 28 6a 29 0d 09 09 45 4e |;....INC|(j)...EN|
|00002380| 44 0d 09 45 4e 44 20 52 | 65 73 74 6f 72 65 3b 0d |D..END R|estore;.|
|00002390| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 28 76 3a 20 |..PROCED|URE (v: |
|000023a0| 53 74 64 56 69 65 77 29 | 20 48 61 6e 64 6c 65 56 |StdView)| HandleV|
|000023b0| 69 65 77 4d 73 67 20 28 | 66 3a 20 56 69 65 77 73 |iewMsg (|f: Views|
|000023c0| 2e 46 72 61 6d 65 3b 20 | 56 41 52 20 6d 73 67 3a |.Frame; |VAR msg:|
|000023d0| 20 56 69 65 77 73 2e 4d | 65 73 73 61 67 65 29 3b | Views.M|essage);|
|000023e0| 0d 09 42 45 47 49 4e 0d | 09 09 57 49 54 48 20 6d |..BEGIN.|..WITH m|
|000023f0| 73 67 3a 20 55 70 64 61 | 74 65 4d 73 67 20 44 4f |sg: Upda|teMsg DO|
|00002400| 0d 09 09 09 44 72 61 77 | 46 69 65 6c 64 28 76 2c |....Draw|Field(v,|
|00002410| 20 66 2c 20 6d 73 67 2e | 69 2c 20 6d 73 67 2e 6a | f, msg.|i, msg.j|
|00002420| 29 0d 09 09 45 4c 53 45 | 0d 09 09 45 4e 44 0d 09 |)...ELSE|...END..|
|00002430| 45 4e 44 20 48 61 6e 64 | 6c 65 56 69 65 77 4d 73 |END Hand|leViewMs|
|00002440| 67 3b 0d 0d 09 50 52 4f | 43 45 44 55 52 45 20 28 |g;...PRO|CEDURE (|
|00002450| 76 3a 20 53 74 64 56 69 | 65 77 29 20 48 61 6e 64 |v: StdVi|ew) Hand|
|00002460| 6c 65 43 74 72 6c 4d 73 | 67 20 28 66 3a 20 56 69 |leCtrlMs|g (f: Vi|
|00002470| 65 77 73 2e 46 72 61 6d | 65 3b 20 56 41 52 20 6d |ews.Fram|e; VAR m|
|00002480| 73 67 3a 20 43 6f 6e 74 | 72 6f 6c 6c 65 72 73 2e |sg: Cont|rollers.|
|00002490| 4d 65 73 73 61 67 65 3b | 0d 09 09 09 09 09 09 09 |Message;|........|
|000024a0| 09 09 09 09 09 09 09 09 | 09 56 41 52 20 66 6f 63 |........|.VAR foc|
|000024b0| 75 73 3a 20 56 69 65 77 | 73 2e 56 69 65 77 29 3b |us: View|s.View);|
|000024c0| 0d 09 09 56 41 52 20 69 | 2c 20 6a 2c 20 73 65 6c |...VAR i|, j, sel|
|000024d0| 3a 20 49 4e 54 45 47 45 | 52 3b 0d 09 42 45 47 49 |: INTEGE|R;..BEGI|
|000024e0| 4e 0d 09 09 57 49 54 48 | 20 6d 73 67 3a 20 43 6f |N...WITH| msg: Co|
|000024f0| 6e 74 72 6f 6c 6c 65 72 | 73 2e 54 72 61 63 6b 4d |ntroller|s.TrackM|
|00002500| 73 67 20 44 4f 0d 09 09 | 09 54 72 61 63 6b 28 76 |sg DO...|.Track(v|
|00002510| 2c 20 66 2c 20 6d 73 67 | 2e 78 2c 20 6d 73 67 2e |, f, msg|.x, msg.|
|00002520| 79 2c 20 6d 73 67 2e 6d | 6f 64 69 66 69 65 72 73 |y, msg.m|odifiers|
|00002530| 29 0d 09 09 7c 20 6d 73 | 67 3a 20 43 6f 6e 74 72 |)...| ms|g: Contr|
|00002540| 6f 6c 6c 65 72 73 2e 50 | 6f 6c 6c 4f 70 73 4d 73 |ollers.P|ollOpsMs|
|00002550| 67 20 44 4f 0d 09 09 09 | 6d 73 67 2e 73 65 6c 65 |g DO....|msg.sele|
|00002560| 63 74 61 62 6c 65 20 3a | 3d 20 54 52 55 45 3b 0d |ctable :|= TRUE;.|
|00002570| 09 09 7c 20 6d 73 67 3a | 20 43 6f 6e 74 72 6f 6c |..| msg:| Control|
|00002580| 6c 65 72 73 2e 53 65 6c | 65 63 74 4d 73 67 20 44 |lers.Sel|ectMsg D|
|00002590| 4f 0d 09 09 09 53 65 6c | 65 63 74 28 76 2c 20 6d |O....Sel|ect(v, m|
|000025a0| 73 67 2e 73 65 74 29 0d | 09 09 45 4c 53 45 0d 09 |sg.set).|..ELSE..|
|000025b0| 09 45 4e 44 0d 09 45 4e | 44 20 48 61 6e 64 6c 65 |.END..EN|D Handle|
|000025c0| 43 74 72 6c 4d 73 67 3b | 0d 0d 09 50 52 4f 43 45 |CtrlMsg;|...PROCE|
|000025d0| 44 55 52 45 20 28 76 3a | 20 53 74 64 56 69 65 77 |DURE (v:| StdView|
|000025e0| 29 20 48 61 6e 64 6c 65 | 50 72 6f 70 4d 73 67 20 |) Handle|PropMsg |
|000025f0| 28 56 41 52 20 6d 73 67 | 3a 20 50 72 6f 70 65 72 |(VAR msg|: Proper|
|00002600| 74 69 65 73 2e 4d 65 73 | 73 61 67 65 29 3b 0d 09 |ties.Mes|sage);..|
|00002610| 09 43 4f 4e 53 54 20 6d | 69 6e 57 20 3d 20 33 20 |.CONST m|inW = 3 |
|00002620| 2a 20 50 6f 72 74 73 2e | 6d 6d 3b 20 73 74 64 57 |* Ports.|mm; stdW|
|00002630| 20 3d 20 37 20 2a 20 50 | 6f 72 74 73 2e 6d 6d 3b | = 7 * P|orts.mm;|
|00002640| 09 28 2a 20 70 65 72 20 | 66 69 65 6c 64 20 2a 29 |.(* per |field *)|
|00002650| 0d 09 42 45 47 49 4e 0d | 09 09 57 49 54 48 20 6d |..BEGIN.|..WITH m|
|00002660| 73 67 3a 20 50 72 6f 70 | 65 72 74 69 65 73 2e 53 |sg: Prop|erties.S|
|00002670| 69 7a 65 50 72 65 66 20 | 44 4f 0d 09 09 09 49 46 |izePref |DO....IF|
|00002680| 20 28 6d 73 67 2e 77 20 | 3e 20 56 69 65 77 73 2e | (msg.w |> Views.|
|00002690| 75 6e 64 65 66 69 6e 65 | 64 29 20 26 20 28 6d 73 |undefine|d) & (ms|
|000026a0| 67 2e 68 20 3e 20 56 69 | 65 77 73 2e 75 6e 64 65 |g.h > Vi|ews.unde|
|000026b0| 66 69 6e 65 64 29 20 54 | 48 45 4e 0d 09 09 09 09 |fined) T|HEN.....|
|000026c0| 50 72 6f 70 65 72 74 69 | 65 73 2e 50 72 6f 70 6f |Properti|es.Propo|
|000026d0| 72 74 69 6f 6e 61 6c 43 | 6f 6e 73 74 72 61 69 6e |rtionalC|onstrain|
|000026e0| 74 28 31 30 30 30 2c 20 | 32 20 2a 20 48 28 31 30 |t(1000, |2 * H(10|
|000026f0| 30 30 29 2c 20 6d 73 67 | 2e 66 69 78 65 64 57 2c |00), msg|.fixedW,|
|00002700| 20 6d 73 67 2e 66 69 78 | 65 64 48 2c 20 6d 73 67 | msg.fix|edH, msg|
|00002710| 2e 77 2c 20 6d 73 67 2e | 68 29 3b 0d 09 09 09 09 |.w, msg.|h);.....|
|00002720| 49 46 20 6d 73 67 2e 77 | 20 3c 20 38 20 2a 20 6d |IF msg.w| < 8 * m|
|00002730| 69 6e 57 20 54 48 45 4e | 0d 09 09 09 09 09 6d 73 |inW THEN|......ms|
|00002740| 67 2e 77 20 3a 3d 20 38 | 20 2a 20 6d 69 6e 57 3b |g.w := 8| * minW;|
|00002750| 20 6d 73 67 2e 68 20 3a | 3d 20 31 36 20 2a 20 48 | msg.h :|= 16 * H|
|00002760| 28 6d 69 6e 57 29 0d 09 | 09 09 09 45 4e 44 0d 09 |(minW)..|...END..|
|00002770| 09 09 45 4c 53 45 0d 09 | 09 09 09 6d 73 67 2e 77 |..ELSE..|...msg.w|
|00002780| 20 3a 3d 20 38 20 2a 20 | 73 74 64 57 3b 20 6d 73 | := 8 * |stdW; ms|
|00002790| 67 2e 68 20 3a 3d 20 31 | 36 20 2a 20 48 28 73 74 |g.h := 1|6 * H(st|
|000027a0| 64 57 29 0d 09 09 09 45 | 4e 44 3b 0d 09 09 09 49 |dW)....E|ND;....I|
|000027b0| 4e 43 28 6d 73 67 2e 68 | 2c 20 31 20 2a 20 50 6f |NC(msg.h|, 1 * Po|
|000027c0| 72 74 73 2e 6d 6d 29 0d | 09 09 7c 20 6d 73 67 3a |rts.mm).|..| msg:|
|000027d0| 20 50 72 6f 70 65 72 74 | 69 65 73 2e 46 6f 63 75 | Propert|ies.Focu|
|000027e0| 73 50 72 65 66 20 44 4f | 0d 09 09 09 6d 73 67 2e |sPref DO|....msg.|
|000027f0| 73 65 74 46 6f 63 75 73 | 20 3a 3d 20 54 52 55 45 |setFocus| := TRUE|
|00002800| 0d 09 09 45 4c 53 45 0d | 09 09 45 4e 44 0d 09 45 |...ELSE.|..END..E|
|00002810| 4e 44 20 48 61 6e 64 6c | 65 50 72 6f 70 4d 73 67 |ND Handl|ePropMsg|
|00002820| 3b 0d 0d 0d 09 28 2a 20 | 63 6f 6d 6d 61 6e 64 73 |;....(* |commands|
|00002830| 20 2a 29 0d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 | *)...PR|OCEDURE |
|00002840| 44 65 70 6f 73 69 74 2a | 3b 0d 09 09 56 41 52 20 |Deposit*|;...VAR |
|00002850| 76 3a 20 53 74 64 56 69 | 65 77 3b 0d 09 42 45 47 |v: StdVi|ew;..BEG|
|00002860| 49 4e 0d 09 09 4e 45 57 | 28 76 29 3b 20 49 6e 69 |IN...NEW|(v); Ini|
|00002870| 74 50 61 6c 65 74 74 65 | 28 76 2e 70 61 6c 29 3b |tPalette|(v.pal);|
|00002880| 20 49 6e 69 74 4d 6f 64 | 65 6c 28 76 2e 6d 6f 64 | InitMod|el(v.mod|
|00002890| 29 3b 20 76 2e 73 65 6c | 20 3a 3d 20 30 3b 20 76 |); v.sel| := 0; v|
|000028a0| 2e 67 72 69 64 20 3a 3d | 20 46 41 4c 53 45 3b 20 |.grid :=| FALSE; |
|000028b0| 56 69 65 77 73 2e 44 65 | 70 6f 73 69 74 28 76 29 |Views.De|posit(v)|
|000028c0| 0d 09 45 4e 44 20 44 65 | 70 6f 73 69 74 3b 0d 0d |..END De|posit;..|
|000028d0| 09 50 52 4f 43 45 44 55 | 52 45 20 54 6f 67 67 6c |.PROCEDU|RE Toggl|
|000028e0| 65 47 72 69 64 2a 3b 0d | 09 09 56 41 52 20 76 3a |eGrid*;.|..VAR v:|
|000028f0| 20 56 69 65 77 73 2e 56 | 69 65 77 3b 0d 09 42 45 | Views.V|iew;..BE|
|00002900| 47 49 4e 0d 09 09 76 20 | 3a 3d 20 43 6f 6e 74 72 |GIN...v |:= Contr|
|00002910| 6f 6c 6c 65 72 73 2e 46 | 6f 63 75 73 56 69 65 77 |ollers.F|ocusView|
|00002920| 28 29 3b 0d 09 09 49 46 | 20 76 20 23 20 4e 49 4c |();...IF| v # NIL|
|00002930| 20 54 48 45 4e 0d 09 09 | 09 57 49 54 48 20 76 3a | THEN...|.WITH v:|
|00002940| 20 53 74 64 56 69 65 77 | 20 44 4f 0d 09 09 09 09 | StdView| DO.....|
|00002950| 76 2e 67 72 69 64 20 3a | 3d 20 7e 76 2e 67 72 69 |v.grid :|= ~v.gri|
|00002960| 64 3b 20 56 69 65 77 73 | 2e 55 70 64 61 74 65 28 |d; Views|.Update(|
|00002970| 76 2c 20 56 69 65 77 73 | 2e 6b 65 65 70 46 72 61 |v, Views|.keepFra|
|00002980| 6d 65 73 29 0d 09 09 09 | 45 4c 53 45 0d 09 09 09 |mes)....|ELSE....|
|00002990| 45 4e 44 0d 09 09 45 4e | 44 20 0d 09 45 4e 44 20 |END...EN|D ..END |
|000029a0| 54 6f 67 67 6c 65 47 72 | 69 64 3b 0d 0d 09 50 52 |ToggleGr|id;...PR|
|000029b0| 4f 43 45 44 55 52 45 20 | 52 65 73 65 74 43 6f 6c |OCEDURE |ResetCol|
|000029c0| 6f 72 73 2a 3b 0d 09 09 | 56 41 52 20 76 3a 20 56 |ors*;...|VAR v: V|
|000029d0| 69 65 77 73 2e 56 69 65 | 77 3b 20 70 30 3a 20 50 |iews.Vie|w; p0: P|
|000029e0| 61 6c 65 74 74 65 3b 20 | 73 63 72 69 70 74 3a 20 |alette; |script: |
|000029f0| 44 6f 6d 61 69 6e 73 2e | 4f 70 65 72 61 74 69 6f |Domains.|Operatio|
|00002a00| 6e 3b 20 63 6f 70 3a 20 | 43 6f 6c 6f 72 4f 70 3b |n; cop: |ColorOp;|
|00002a10| 20 69 3a 20 49 4e 54 45 | 47 45 52 3b 0d 09 42 45 | i: INTE|GER;..BE|
|00002a20| 47 49 4e 0d 09 09 76 20 | 3a 3d 20 43 6f 6e 74 72 |GIN...v |:= Contr|
|00002a30| 6f 6c 6c 65 72 73 2e 46 | 6f 63 75 73 56 69 65 77 |ollers.F|ocusView|
|00002a40| 28 29 3b 0d 09 09 49 46 | 20 76 20 23 20 4e 49 4c |();...IF| v # NIL|
|00002a50| 20 54 48 45 4e 0d 09 09 | 09 57 49 54 48 20 76 3a | THEN...|.WITH v:|
|00002a60| 20 53 74 64 56 69 65 77 | 20 44 4f 0d 09 09 09 09 | StdView| DO.....|
|00002a70| 56 69 65 77 73 2e 42 65 | 67 69 6e 53 63 72 69 70 |Views.Be|ginScrip|
|00002a80| 74 28 76 2c 20 22 52 65 | 73 65 74 20 43 6f 6c 6f |t(v, "Re|set Colo|
|00002a90| 72 73 22 2c 20 73 63 72 | 69 70 74 29 3b 0d 09 09 |rs", scr|ipt);...|
|00002aa0| 09 09 49 6e 69 74 50 61 | 6c 65 74 74 65 28 70 30 |..InitPa|lette(p0|
|00002ab0| 29 3b 0d 09 09 09 09 69 | 20 3a 3d 20 30 3b 0d 09 |);.....i| := 0;..|
|00002ac0| 09 09 09 57 48 49 4c 45 | 20 69 20 3c 20 34 20 44 |...WHILE| i < 4 D|
|00002ad0| 4f 0d 09 09 09 09 09 4e | 45 57 28 63 6f 70 29 3b |O......N|EW(cop);|
|00002ae0| 20 63 6f 70 2e 76 20 3a | 3d 20 76 3b 20 63 6f 70 | cop.v :|= v; cop|
|00002af0| 2e 6e 20 3a 3d 20 69 3b | 20 63 6f 70 2e 63 6f 6c |.n := i;| cop.col|
|00002b00| 20 3a 3d 20 70 30 5b 69 | 5d 3b 20 56 69 65 77 73 | := p0[i|]; Views|
|00002b10| 2e 44 6f 28 76 2c 20 22 | 22 2c 20 63 6f 70 29 3b |.Do(v, "|", cop);|
|00002b20| 20 49 4e 43 28 69 29 0d | 09 09 09 09 45 4e 44 3b | INC(i).|....END;|
|00002b30| 0d 09 09 09 09 56 69 65 | 77 73 2e 45 6e 64 53 63 |.....Vie|ws.EndSc|
|00002b40| 72 69 70 74 28 76 2c 20 | 73 63 72 69 70 74 29 0d |ript(v, |script).|
|00002b50| 09 09 09 45 4c 53 45 0d | 09 09 09 45 4e 44 0d 09 |...ELSE.|...END..|
|00002b60| 09 45 4e 44 20 0d 09 45 | 4e 44 20 52 65 73 65 74 |.END ..E|ND Reset|
|00002b70| 43 6f 6c 6f 72 73 3b 0d | 0d 45 4e 44 20 4f 62 78 |Colors;.|.END Obx|
|00002b80| 4f 6d 6f 73 69 2e 82 f1 | 54 65 78 74 43 6f 6e 74 |Omosi...|TextCont|
|00002b90| 72 6f 6c 6c 65 72 73 2e | 53 74 64 43 74 72 6c 44 |rollers.|StdCtrlD|
|00002ba0| 65 73 63 00 f1 54 65 78 | 74 43 6f 6e 74 72 6f 6c |esc..Tex|tControl|
|00002bb0| 6c 65 72 73 2e 43 6f 6e | 74 72 6f 6c 6c 65 72 44 |lers.Con|trollerD|
|00002bc0| 65 73 63 00 f1 43 6f 6e | 74 61 69 6e 65 72 73 2e |esc..Con|tainers.|
|00002bd0| 43 6f 6e 74 72 6f 6c 6c | 65 72 44 65 73 63 00 f1 |Controll|erDesc..|
|00002be0| 43 6f 6e 74 72 6f 6c 6c | 65 72 73 2e 43 6f 6e 74 |Controll|ers.Cont|
|00002bf0| 72 6f 6c 6c 65 72 44 65 | 73 63 00 f2 04 00 00 00 |rollerDe|sc......|
|00002c00| 00 00 00 00 14 00 00 00 | 00 00 00 00 09 00 00 00 |........|........|
|00002c10| 00 00 00 00 00 00 00 00 | 00 00 00 01 82 f1 54 65 |........|......Te|
|00002c20| 78 74 52 75 6c 65 72 73 | 2e 53 74 64 52 75 6c 65 |xtRulers|.StdRule|
|00002c30| 72 44 65 73 63 00 f1 54 | 65 78 74 52 75 6c 65 72 |rDesc..T|extRuler|
|00002c40| 73 2e 52 75 6c 65 72 44 | 65 73 63 00 f2 03 00 00 |s.RulerD|esc.....|
|00002c50| 00 00 00 00 00 ab 00 00 | 00 07 00 00 00 a3 00 00 |........|........|
|00002c60| 00 00 00 00 83 f1 54 65 | 78 74 52 75 6c 65 72 73 |......Te|xtRulers|
|00002c70| 2e 53 74 64 53 74 79 6c | 65 44 65 73 63 00 f1 54 |.StdStyl|eDesc..T|
|00002c80| 65 78 74 52 75 6c 65 72 | 73 2e 53 74 79 6c 65 44 |extRuler|s.StyleD|
|00002c90| 65 73 63 00 f2 07 00 00 | 00 00 00 00 00 00 00 00 |esc.....|........|
|00002ca0| 00 08 00 00 00 5a 00 00 | 00 00 00 00 00 82 f1 54 |.....Z..|.......T|
|00002cb0| 65 78 74 52 75 6c 65 72 | 73 2e 41 74 74 72 69 62 |extRuler|s.Attrib|
|00002cc0| 75 74 65 73 44 65 73 63 | 00 f2 04 00 00 00 00 00 |utesDesc|........|
|00002cd0| 00 00 00 00 00 00 00 00 | 00 00 24 00 00 00 00 01 |........|..$.....|
|00002ce0| 00 00 00 00 00 00 00 00 | 20 a3 5a 00 00 00 00 00 |........| .Z.....|
|00002cf0| 18 f0 01 00 38 63 00 00 | 50 53 02 00 01 00 00 00 |....8c..|PS......|
|00002d00| 00 00 00 00 82 f2 0d 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d10| 00 00 00 00 00 00 22 00 | 00 00 00 00 00 00 00 01 |......".|........|
|00002d20| 00 00 00 00 48 65 6c 76 | 65 74 69 63 61 00 47 99 |....Helv|etica.G.|
|00002d30| 01 00 00 00 00 00 90 01 | 00 00 00 00 00 00 00 00 |........|........|
|00002d40| 00 00 00 00 e0 8c 01 00 | e0 8c 01 00 90 69 5b 00 |........|.....i[.|
|00002d50| e0 b9 3b 3e 82 f1 44 6f | 63 75 6d 65 6e 74 73 2e |..;>..Do|cuments.|
|00002d60| 43 6f 6e 74 72 6f 6c 6c | 65 72 44 65 73 63 00 f2 |Controll|erDesc..|
|00002d70| 10 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d80| 08 00 00 00 00 00 00 00 | 00 09 00 00 00 00 40 5b |........|......@[|
|00002d90| 73 00 00 99 a2 00 40 7e | 05 00 40 7e 05 00 00 dd |s.....@~|..@~....|
|00002da0| 6d 00 c0 1a 9d 00 01 00 | 00 00 00 00 00 00 00 00 |m.......|........|
|00002db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e00| 00 00 01 00 00 00 01 0c | 00 00 00 0c 00 00 00 32 |........|.......2|
|00002e10| 53 68 61 6e 6e 6f 6e 20 | 42 6f 6c 64 00 03 c0 ca |Shannon |Bold....|
|00002e20| 17 53 70 65 63 74 72 75 | 6d 20 4d 54 20 53 65 6d |.Spectru|m MT Sem|
|00002e30| 05 4f 6d 6f 73 69 02 00 | 00 00 50 61 72 74 53 49 |.Omosi..|..PartSI|
|00002e40| 54 21 00 00 00 00 00 00 | 00 00 00 00 48 95 00 00 |T!......|....H...|
|00002e50| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00002e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e70| 00 00 ae 04 81 af 00 00 | 00 00 00 00 01 3e bc 00 |........|.....>..|
|00002e80| 15 08 38 00 15 02 46 00 | 14 fd 6f 00 14 f9 1e 00 |..8...F.|..o.....|
|00002e90| 14 f3 0f 00 14 ef 81 00 | 14 ec 31 00 14 e8 bf 00 |........|..1.....|
|00002ea0| 14 e2 23 00 14 dc 38 00 | 14 d9 08 00 14 d3 21 00 |..#...8.|......!.|
|00002eb0| 14 cd aa 00 14 ca 0e 00 | 14 c3 a2 00 14 be c3 00 |........|........|
|00002ec0| 14 bb 2e 00 14 b6 4a 00 | 14 af 3c 00 14 a8 9b 00 |......J.|..<.....|
|00002ed0| 14 a3 d5 00 14 9f d7 00 | 14 9c 82 00 14 97 70 00 |........|......p.|
|00002ee0| 14 92 a0 00 14 8e 81 00 | 14 8a cd 00 14 86 6b 00 |........|......k.|
|00002ef0| 14 80 b8 00 14 7d 3a 00 | 14 79 cc 00 14 73 e4 00 |.....}:.|.y...s..|
|00002f00| 00 00 00 08 00 3c 00 05 | 01 db 02 3f 00 00 01 00 |.....<..|...?....|
|00002f10| 00 00 01 0c 00 00 00 0c | 00 00 00 32 01 29 fb 98 |........|...2.)..|
|00002f20| 16 c6 00 00 00 1c 00 32 | 00 00 57 4e 53 50 00 00 |.......2|..WNSP..|
|00002f30| 00 0a 00 01 ff ff 00 00 | 00 00 01 29 ff 20 00 00 |........|...). ..|
|00002f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+